home *** CD-ROM | disk | FTP | other *** search
/ Pascal Super Library / Pascal Super Library (CW International)(1997).bin / LIBRARY / DSUTIL12 / LPRINT / MESSAGES.INC < prev    next >
Text File  |  1993-10-23  |  127KB  |  2,369 lines
  1. {-----------------------------------------------------------------------}
  2. { PROJECT        NON-PROFIT HIGH QUALITY PROFESSIONAL SOFTWARE,  }
  3. {            AVAILABLE FOR ALL WORLD                }
  4. { LIBRARY        SYSTEM UTILITIES                                }
  5. { MODULE        TEXT_LINE_PRINT                                 }
  6. { FILE NAME        MESSAGES.INC                    }
  7. { PURPOSE               Text Messages for Main Module                   }
  8. { VERSION        1.00                        }
  9. { DATE            20-Oct-93                    }
  10. { DESIGN        Dmitry Stefankov                }
  11. { IMPLEMENTATION    Dmitry Stefankov                 }
  12. { COMPANY        Freelance Software Engineer            }
  13. { ADDRESS        Isakowskogo str, 4-2-30                }
  14. {            Moscow, 123181                    }
  15. {            USSR                        }
  16. {            Tel. 007 (095) 944-6304                }
  17. { COPYRIGHT NOTICE    Copyright (C) 1987-1992, Dmitry Stefankov    }
  18. { RESTRICTED RIGHTS    AVAILABLE ONLY FOR FREE DISTRIBUTION,           }
  19. {            NOT FOR COMMERCIAL PURPOSE            }
  20. { COMPUTER        IBM PC or compatible                }
  21. { OPERATING SYSTEM    MS/PC-DOS Version 3.30 or higher        }
  22. { COMPILER        Turbo Pascal Version 7.0            }
  23. {                       (Borland International Inc.), or compatible     }
  24. { ASSEMBLY LANGUAGE    Microsoft MASM 5.10 or compatible               }
  25. { LINKER        Turbo Pascal internal                           }
  26. { ARGUMENTS             See command line syntax description             }
  27. { RETURN        See error return codes definitions        }
  28. { REQUIRES        Source Code Files                               }
  29. {                       NONE                                            }
  30. {                       External Object Files                           }
  31. {                       NONE                                            }
  32. { NATURAL LANGUAGE      A. English Language                             }
  33. {                       B. Russian Language                             }
  34. {                       C. Germany Language                             }
  35. { SPECIAL        None                        }
  36. { DESCRIPTION        None                        }
  37. { REVISION HISTORY    Dima Stefankov (DS)                }
  38. {               1.00  20-Oct-93  DS  initilal release        }
  39. {-----------------------------------------------------------------------}
  40.  
  41.  
  42.  {*****************  Support of ENGLISH  ***************}
  43.  
  44.    { global scope }
  45.  {$IFDEF EnglishVersion}
  46.      abEnglishAvail             =       System.True;
  47.  {$ELSE}
  48.      abEnglishAvail             =       System.False;
  49.  {$ENDIF}
  50.  
  51.  
  52.    { program descriptions }
  53.      asPurposeEngl               =      'LPrint Utility';
  54.      asAuthorEngl                =      'Dima Stefankov';
  55.      asCopyrightEngl             =      'Copyright (c)';
  56.      asMsgVersionEngl            =      '  Version ';
  57.      asProgramEngl               =      'LPrint';
  58.      asProgramPromptEngl         =      asProgramEngl+': ';
  59.      asUProgramEngl              =      'LPRINT';
  60.  
  61.   { languages }
  62.      asEnglishLanguageEngl       =      'English';
  63.      asRussianLanguageEngl       =      'Russian';
  64.      asGermanyLanguageEngl       =      'Germany';
  65.  
  66.   { user response }
  67.     achUserWantEngl              =      'Y';
  68.     achUserDontWantEngl          =      'N';
  69.  
  70.   { string constants }
  71.     asSwValON_Engl               =      '(=on)';
  72.     asSwValOFF_Engl              =      '(=off)';
  73.     asSwValNONE_Engl             =      '(=none)';
  74.     asAllChars_Engl              =      'all chars enabled';
  75.  
  76.   { program messages }
  77.     asMsgBadBooleanSwitchEngl    =      'Bad boolean switch present in command line.';
  78.     asMsgBadNumericFoundEngl     =      'Bad numeric format present in command line.';
  79.     asMsgBadSwitchFoundEngl      =      'Non-valid';
  80.     asMsgsMisMatchSwitchEngl     =      ' switch found in command line.';
  81.     asMsgFileNotFoundEngl        =      'Unable to open ';
  82.     asMsgFileNotCreatedEngl      =      'Unable to create ';
  83.     asMsgSameFilesNotAllowedEngl =      'Unable to use same file as input and as output';
  84.     asMsgBadPrefixSwitchEngl     =      'Invalid prefix for';
  85.     asMsgBadMarginSwitchEngl     =      'Bad margin';
  86.     asMsgBadLineSwitchEngl       =      'Bad line';
  87.     asMsgBadHeaderSwitchEngl     =      'Bad header';
  88.     asMsgBadPageSwitchEngl       =      'Bad page';
  89.     asMsgBadFileSwitchEngl       =      'Bad filename';
  90.     asMsgPrintCtrlSwitchEngl     =      'Bad print control';
  91.     asMsgBadLangSwitchEngl       =      'Bad language';
  92.     asMsgTimeOfFileCreateEngl    =      'File was created:   ';
  93.     asMsgPageEngl                =      'Page ';
  94.     asMsgPrintPageNumEngl        =      'Printing page  ';
  95.     asMsgPrintLineNumEngl        =      ',  line ';
  96.     asMsgWriteFaultEngl          =      'WriteFault';
  97.     asMsgDeviceNotReadyEngl      =      'Output Device Not Ready';
  98.     asMsgUserWantBreakEngl       =      'Do you want to break print? ('+achUserDontWantEngl+'/'+achUserWantEngl+'): ';
  99.     asMsgStopPrintByUserEngl     =      'Printing off by user request';
  100.     asMsgAbortOfPrintEngl        =      'Printing aborted by user.';
  101.     asMsgRetryActionEngl         =      '. Retry? ('+achUserWantEngl+'/'+achUserDontWantEngl+'): ';
  102.     asMsgOutFileEngl             =      'Output file ';
  103.     asMsgAlreadyExistsEngl       =      ' already exists. Overwrite? ('+achUserDontWantEngl+'/'+achUserWantEngl+'): ';
  104.     asMsgUserHeaderEngl          =      'Enter header string:';
  105.     asMsgPrintStartEngl          =      'Printing from ';
  106.     asMsgToEngl                  =      ' to ';
  107.     asMsgUserAvailableKeysEngl   =      'Press '+asExitKey+' key to break of printing, '+asStopKey+' to stop of printing.';
  108.     asMsgPrintDoneEngl           =      'Done. Pages ';
  109.     asMsgReadFailEngl            =      'File Read Fault';
  110.     asMsgWriteFailEngl           =      'File Write Fault';
  111.     asMsgBadCtrlCodeEngl         =      'Bad control character code';
  112.     asMsgLoadBinFileEngl         =      'Loading of binary file ';
  113.     asMsgLoadTransFileEngl       =      'Loading of char code translate file ';
  114.     asMsgScriptFileEngl          =      'Parse script file ';
  115.     asMsgAMEngl                  =      'am';
  116.     asMsgPMEngl                  =      'pm';
  117.  
  118.   { help screen }
  119.     asMsgHelp00A_Engl            =      'short help screen for you.';
  120.     asMsgHelp01A_Engl            =      'Usage: ';
  121.     asMsgHelp01B_Engl            =      ' [Options], where';
  122.     asMsgHelp02A_Engl            =      '  Options may be preceded by either '+achDosSwitch+' or '+achUnixSwitch+'.';
  123.     asMsgHelp03A_Engl            =      '  Valid options (all no case-sensitive) are as follows:';
  124.     asMsgHelp04A_Engl            =      '      switch     |          meaning              |    default';
  125.     asMsgHelp05A_Engl            =      asHelpIndent+aFileSwitch+aConfigCmd+'str      |     config filename           |  '+
  126.                                         'empty '+asSwValNONE_Engl;
  127.     asMsgHelp06A_Engl            =      asHelpIndent+aFileSwitch+aSourceCmd+'str      |     source filename           |  '+
  128.                                         'empty '+asSwValNONE_Engl;
  129.     asMsgHelp07A_Engl            =      asHelpIndent+aFileSwitch+aDestinationCmd+'str      |     dest   filename           |'+
  130.                                         '  '+asStdDosPrintDevice;
  131.     asMsgHelp08A_Engl            =      asHelpIndent+aFileSwitch+aWordStarCmd+'[-|+]    |     WordStar files            |  '+
  132.                                         achSwitchOFF+achBlank+asSwValOFF_Engl;
  133.     asMsgHelp09A_Engl            =      asHelpIndent+aFileSwitch+aFirstBinaryCmd+'str      |     binfile load at start     |'+
  134.                                         '  empty '+asSwValNONE_Engl;
  135.     asMsgHelp10A_Engl            =      asHelpIndent+aFileSwitch+aLastBinaryCmd+'str      |     binfile load at end       |'+
  136.                                         '  empty '+asSwValNONE_Engl;
  137.     asMsgHelp11A_Engl            =      asHelpIndent+aFileSwitch+aTransCodesCmd+'str      |     translate table file      |'+
  138.                                         '  empty '+asSwValNONE_Engl;
  139.     asMsgHelp12A_Engl            =      asHelpIndent+aControlSwitch+aStatisticsCmd+'[-|+]    |     output statistics        '+
  140.                                         ' |  '+
  141.                                         achSwitchON+achBlank+asSwValON_Engl;
  142.     asMsgHelp13A_Engl            =      asHelpIndent+aControlSwitch+aAdvancedCtrlCmd+'[-|+]    |     advanced control       '+
  143.                                         '   |  '+achSwitchOFF+achBlank+asSwValOFF_Engl;
  144.     asMsgHelp14A_Engl            =      asHelpIndent+aControlSwitch+aBatchCmd+'[-|+]    |     batch mode control        |  '+
  145.                                         achSwitchOFF+achBlank+asSwValOFF_Engl;
  146.     asMsgHelp15A_Engl            =      asHelpIndent+aControlSwitch+aCtrlCodesCmd+'[-|+]    |     strip control chars       '+
  147.                                         '|  '+achSwitchOFF+achBlank+asSwValOFF_Engl;
  148.     asMsgHelp16A_Engl            =      asHelpIndent+aControlSwitch+aLanguageCmd+'n        |     select language           |'+
  149.                                         '  ';
  150.     asMsgHelp17A_Engl            =      asHelpIndent+aControlSwitch+aTabCmd+'n        |     set htab size             |  ';
  151.     asMsgHelp17B_Engl            =      ' (spaces)';
  152.     asMsgHelp18A_Engl            =      asHelpIndent+aControlSwitch+aCtrlCharCodeCmd+'[n[-|+]] |     toggle use of char <n> '+
  153.                                         '   |  '+asAllChars_Engl;
  154.     asMsgHelp19A_Engl            =      asHelpIndent+aLineSwitch+aLineNumCmd+'n        |     line numbers              |  ';
  155.     asMsgHelp19B_Engl            =      achBlank+asSwValOFF_Engl;
  156.     asMsgHelp20A_Engl            =      asHelpIndent+aLineSwitch+aLineSpacingCmd+'n        |     line spacing              '+
  157.                                         '|  ';
  158.     asMsgHelp20B_Engl            =      achBlank+asSwValOFF_Engl;
  159.     asMsgHelp21A_Engl            =      asHelpIndent+aPageSwitch+aHeightCmd+'n        |     page height               |  ';
  160.     asMsgHelp21B_Engl            =      ' lines';
  161.     asMsgHelp22A_Engl            =      asHelpIndent+aPageSwitch+aWidthCmd+'n        |     page width                |  ';
  162.     asMsgHelp22B_Engl            =      ' columns';
  163.     asMsgHelp23A_Engl            =      asHelpIndent+aPageSwitch+aPageNumberCmd+'n        |     page number               |'+
  164.                                         '  ';
  165.     asMsgHelp24A_Engl            =      asHelpIndent+aPageSwitch+aPrintOddCmd+'[-|+]    |     print odd  pages          |  '+
  166.                                         achSwitchON+achBlank+asSwValON_Engl;
  167.     asMsgHelp25A_Engl            =      asHelpIndent+aPageSwitch+aPrintEvenCmd+'[-|+]    |     print even pages          |'+
  168.                                         '  '+achSwitchON+achBlank+asSwValON_Engl;
  169.     asMsgHelp26A_Engl            =      asHelpIndent+aPageSwitch+aSkipPagesCmd+'n        |     page skip                 |'+
  170.                                         '  ';
  171.     asMsgHelp26B_Engl            =      achBlank+asSwValNONE_Engl;
  172.     asMsgHelp27A_Engl            =      asHelpIndent+aPageSwitch+aCountPagesCmd+'n        |     pages count to print      |'+
  173.                                         '  ';
  174.     asMsgHelp27B_Engl            =      ' (=all)';
  175.     asMsgHelp28A_Engl            =      asHelpIndent+aMarginSwitch+aTopMarginCmd+'n        |     margin top                '+
  176.                                         '|  ';
  177.     asMsgHelp29A_Engl            =      asHelpIndent+aMarginSwitch+aBottomMarginCmd+'n        |     margin bottom          '+
  178.                                         '   |  ';
  179.     asMsgHelp30A_Engl            =      asHelpIndent+aMarginSwitch+aLeftMarginCmd+'n        |     margin left              '+
  180.                                         ' |  ';
  181.     asMsgHelp31A_Engl            =      asHelpIndent+aMarginSwitch+aRightMarginCmd+'n        |     margin right            '+
  182.                                         '  |  ';
  183.     asMsgHelp32A_Engl            =      asHelpIndent+aHeaderSwitch+aHdrLevelCmd+'n        |     header level              |'+
  184.                                         '  ';
  185.     asMsgHelp33A_Engl            =      asHelpIndent+aHeaderSwitch+aHdrTextCmd+'str      |     header text               |'+
  186.                                         '  empty '+asSwValNONE_Engl+', ask user';
  187.     asMsgHelp33B_Engl            =      '                 |                               |  if switch without string';
  188.     asMsgHelp34A_Engl            =      '  Short Example';
  189.  
  190.   { day/month/year }
  191.     aDay_01_Engl                 =      'Sunday';
  192.     aDay_02_Engl                 =      'Monday';
  193.     aDay_03_Engl                 =      'Tuesday';
  194.     aDay_04_Engl                 =      'Wednesday';
  195.     aDay_05_Engl                 =      'Thursday';
  196.     aDay_06_Engl                 =      'Friday';
  197.     aDay_07_Engl                 =      'Saturday';
  198.  
  199.     aMonth_01_Engl               =      'January';
  200.     aMonth_02_Engl               =      'February';
  201.     aMonth_03_Engl               =      'March';
  202.     aMonth_04_Engl               =      'April';
  203.     aMonth_05_Engl               =      'May';
  204.     aMonth_06_Engl               =      'June';
  205.     aMonth_07_Engl               =      'July';
  206.     aMonth_08_Engl               =      'August';
  207.     aMonth_09_Engl               =      'September';
  208.     aMonth_10_Engl               =      'October';
  209.     aMonth_11_Engl               =      'November';
  210.     aMonth_12_Engl               =      'December';
  211.  
  212.  
  213.  {*********************  Support of RUSSIAN  *****************}
  214.  
  215.    { global scope }
  216.  {$IFDEF RussianVersion}
  217.      abRussianAvail             =       System.True;
  218.  {$ELSE}
  219.      abRussianAvail             =       System.False;
  220.  {$ENDIF}
  221.  
  222.    { program descriptions }
  223.      asPurposeRuss              =       'ôΓ¿½¿Γá ÅÑτáΓ¿';
  224.      asAuthorRuss               =       '俼á æΓÑΣᡬ«ó';
  225.      asCopyrightRuss            =       'ÇóΓ«α߬«Ñ »αáó« (ß)';
  226.      asMsgVersionRuss           =       '  éÑαß¿∩ ';
  227.      asProgramRuss              =       'ÅÑτáΓ∞';
  228.      asProgramPromptRuss        =       asProgramRuss+': ';
  229.      asUProgramRuss             =       'ÅàùÇÆ£';
  230.  
  231.   { languages }
  232.      asEnglishLanguageRuss       =       'Ç¡ú½¿⌐߬¿⌐';
  233.      asRussianLanguageRuss       =       'Éπß߬¿⌐';
  234.      asGermanyLanguageRuss       =       'ìѼѵ¬¿⌐';
  235.  
  236.   { user response }
  237.     achUserWantRuss             =       'ä';
  238.     achUserDontWantRuss         =       'ì';
  239.  
  240.   { string constants }
  241.     asSwValON_Russ               =      '(=ó¬½.)';
  242.     asSwValOFF_Russ              =      '(=ó䬽.)';
  243.     asSwValNONE_Russ             =      '(=¡¿τÑú«)';
  244.     asAllChars_Russ              =      'óßÑ ß¿¼ó«½δ αáºαÑΦÑ¡δ';
  245.  
  246.   { program messages }
  247.     asMsgBadBooleanSwitchRuss   =       'ìÑóÑαÑ¡ ½«ú¿τÑ߬¿⌐ »ÑαѬ½ετáΓѽ∞ ó ¬«¼á¡ñ¡«⌐ ßΓ᫬Ñ.';
  248.     asMsgBadNumericFoundRuss    =       'ìÑóÑαÑ¡ Σ«α¼áΓ τ¿ß½á ó ¬«¼á¡ñ¡«⌐ ßΓ᫬Ñ.';
  249.     asMsgBadSwitchFoundRuss     =       'ìÑóÑα¡δ⌐';
  250.     asMsgsMisMatchSwitchRuss    =       ' »ÑαѬ½ετáΓѽ∞ ¡á⌐ñÑ¡ ó ¬«¼á¡ñ¡«⌐ ßΓ᫬Ñ.';
  251.     asMsgFileNotFoundRuss       =       'ìÑ ¡á⌐ñÑ¡ Σá⌐½ ';
  252.     asMsgFileNotCreatedRuss     =       'ìÑ ¼«úπ ß«ºñáΓ∞ Σá⌐½ ';
  253.     asMsgSameFilesNotAllowedRuss =      'Äñ¿¡ ¿ Γ«Γ ªÑ Σá⌐½ ñ½∩ τΓÑ¡¿∩ ¿ ºá»¿ß¿ ¡Ñ αѬ«¼Ñ¡ñπÑΓß∩';
  254.     asMsgBadPrefixSwitchRuss    =       'ìÑóÑαÑ¡ »αÑΣ¿¬ß¡δ⌐ ';
  255.     asMsgBadMarginSwitchRuss    =       'ìÑóÑα¡δ⌐ <»«½Ñ>';
  256.     asMsgBadLineSwitchRuss      =       'ìÑóÑα¡δ⌐ <ßΓ᫬á>';
  257.     asMsgBadHeaderSwitchRuss    =       'ìÑóÑα¡δ⌐ <ºáú«½«ó«¬>';
  258.     asMsgBadPageSwitchRuss      =       'ìÑóÑα¡δ⌐ <ßΓαá¡¿µá>';
  259.     asMsgBadFileSwitchRuss      =       'ìÑóÑα¡δ⌐ <Σá⌐½>';
  260.     asMsgPrintCtrlSwitchRuss    =       'ìÑóÑα¡δ⌐ <¬«¡Γα«½∞>';
  261.     asMsgBadLangSwitchRuss      =       'ìÑóÑα¡δ⌐ <∩ºδ¬>';
  262.     asMsgTimeOfFileCreateRuss   =       'öá⌐½ íδ½ ß«ºñá¡:   ';
  263.     asMsgPageRuss               =       'æΓαá¡¿µá ';
  264.     asMsgPrintPageNumRuss       =       'ÅÑτáΓ∞ ßΓαá¡¿µδ  ';
  265.     asMsgPrintLineNumRuss       =       ',  ßΓ᫬¿ ';
  266.     asMsgWriteFaultRuss         =       'ÄΦ¿í¬á ºá»¿ß¿';
  267.     asMsgDeviceNotReadyRuss     =       'ôßΓα«⌐ßΓó« ñ½∩ óδó«ñá ¡Ñ ú«Γ«ó«';
  268.     asMsgUserWantBreakRuss      =       'éδ ªÑ½áÑΓÑ ºáóÑαΦ¿Γ∞ óδó«ñ? ('+achUserDontWantRuss+'/'+achUserWantRuss+'): ';
  269.     asMsgStopPrintByUserRuss    =       'éδó«ñ óαѼѡ¡« »α¿«ßΓá¡«ó½Ñ¡';
  270.     asMsgAbortOfPrintRuss       =       'ÅÑτáΓ∞ ºá¬«¡τÑ¡á »« ΓαÑí«óá¡¿ε »«½∞º«óáΓѽ∩.';
  271.     asMsgRetryActionRuss        =       '. é«º«í¡«ó¿Γ∞? ('+achUserWantRuss+'/'+achUserDontWantRuss+'): ';
  272.     asMsgOutFileRuss            =       'éδσ«ñ¡δ⌐ Σá⌐½ ';
  273.     asMsgAlreadyExistsRuss      =       ' πªÑ ßπΘÑßΓóπÑΓ. ÅÑαѺỿßáΓ∞? ('+achUserDontWantRuss+'/'+achUserWantRuss+'): ';
  274.     asMsgUserHeaderRuss         =       'éóÑñ¿ΓÑ ñ«». ºáú«½«ó«¬:';
  275.     asMsgPrintStartRuss         =       'ÅÑτáΓáΓ∞ ¿º ';
  276.     asMsgToRuss                 =       ' ó ';
  277.     asMsgUserAvailableKeysRuss  =       'ì᪼¿ΓÑ ¬½áó¿Φπ '+asExitKey+' ñ½∩ óδσ«ñá, '+asStopKey+' ñ½∩ «ßΓᡫ󬿠»ÑτáΓ¿.';
  278.     asMsgPrintDoneRuss          =       'çᬫ¡τÑ¡«. æΓαá¡¿µδ ';
  279.     asMsgReadFailRuss           =       'ÄΦ¿í¬á τΓÑ¡¿∩ ¿º Σá⌐½á';
  280.     asMsgWriteFailRuss          =       'ÄΦ¿í¬á ºá»¿ß¿ ó Σá⌐½';
  281.     asMsgBadCtrlCodeRuss        =       'ìÑóÑα¡δ⌐ ß¿¼ó«½∞¡δ⌐ π»αáó½∩εΘ¿⌐ ¬«ñ';
  282.     asMsgLoadBinFileRuss        =       'çáúαπº¬á ñó«¿τ¡«ú« Σá⌐½á ';
  283.     asMsgLoadTransFileRuss      =       'çáúαπº¬á Σá⌐½á »ÑαѬ«ñ¿α«ó¬¿ ';
  284.     asMsgScriptFileRuss         =       'Éáºí«α ¬«¡Σ¿úπαᵿ«¡¡«ú« Σá⌐½á ';
  285.     asMsgAMRuss                 =       'ñ»';
  286.     asMsgPMRuss                 =       '»»';
  287.  
  288.   { help screen }
  289.     asMsgHelp00A_Russ            =      '¬αáΓ¬á∩ »«¼«Θ∞ »«½∞º«óáΓѽε.';
  290.     asMsgHelp01A_Russ            =      'Åα¿¼Ñ¡Ñ¡¿Ñ: ';
  291.     asMsgHelp01B_Russ            =      ' [è½ετ¿-óδí«αá], úñÑ';
  292.     asMsgHelp02A_Russ            =      '  ÉáºαÑΦÑ¡δ »αÑΣ¿¬ß¡δÑ ß¿¼ó«½δ '+achDosSwitch+' or '+achUnixSwitch+'.';
  293.     asMsgHelp03A_Russ            =      '  æ½ÑñπΘ¿Ñ ¬½ετ¿-óδí«αá ñ«ßΓπ»¡δ (í«½∞Φ¿Ñ ¿ ¼á½Ñ¡∞¬¿Ñ íπ¬óδ αáºαÑΦÑ¡δ):';
  294.     asMsgHelp04A_Russ            =      '   »ÑαѬ½ετáΓѽ∞ |          π»αáó½Ñ¡¿Ñ           |    ¡áτ.º¡áτÑ¡¿Ñ';
  295.     asMsgHelp05A_Russ            =      asHelpIndent+aFileSwitch+aConfigCmd+'ßΓα«¬á   |     ¬«¡Σ¿úπαᵿ«¡¡δ⌐ Σá⌐½     |  '+
  296.                                         '»πßΓ« '+asSwValNONE_Russ;
  297.     asMsgHelp06A_Russ            =      asHelpIndent+aFileSwitch+aSourceCmd+'ßΓα«¬á   |     Σá⌐½ ñ½∩ »ÑτáΓ¿           |  '+
  298.                                         '»πßΓ« '+asSwValNONE_Russ;
  299.     asMsgHelp07A_Russ            =      asHelpIndent+aFileSwitch+aDestinationCmd+'ßΓα«¬á   |     óδσ«ñ¡δ⌐ Σá⌐½             |'+
  300.                                         '  '+asStdDosPrintDevice;
  301.     asMsgHelp08A_Russ            =      asHelpIndent+aFileSwitch+aWordStarCmd+'[-|+]    |     Σá⌐½ ó Σ«α¼áΓÑ WordStar   |  '+
  302.                                         achSwitchOFF+achBlank+asSwValOFF_Russ;
  303.     asMsgHelp09A_Russ            =      asHelpIndent+aFileSwitch+aFirstBinaryCmd+'ßΓα«¬á   |     ºáúαπº¿Γ∞ Σá⌐½ ñ« »ÑτáΓ¿  |'+
  304.                                         '  »πßΓ« '+asSwValNONE_Russ;
  305.     asMsgHelp10A_Russ            =      asHelpIndent+aFileSwitch+aLastBinaryCmd+'ßΓα«¬á   |     ºáúαπº¿Γ∞ Σá⌐½ »«ß½Ñ »Ñτ. |'+
  306.                                         '  »πßΓ« '+asSwValNONE_Russ;
  307.     asMsgHelp11A_Russ            =      asHelpIndent+aFileSwitch+aTransCodesCmd+'ßΓα«¬á   |     Σá⌐½ »ÑαѬ«ñ¿α«ó¬¿        |'+
  308.                                         '  »πßΓ« '+asSwValNONE_Russ;
  309.     asMsgHelp12A_Russ            =      asHelpIndent+aControlSwitch+aStatisticsCmd+'[-|+]    |     ßΓáΓ¿ßΓ¿¬á »ÑτáΓ¿        '+
  310.                                         ' |  '+achSwitchON+achBlank+asSwValON_Russ;
  311.     asMsgHelp13A_Russ            =      asHelpIndent+aControlSwitch+aAdvancedCtrlCmd+'[-|+]    |     ñ«»«½¡¿Γѽ∞¡δ⌐ ¬«¡Γα«½∞'+
  312.                                         '   |  '+achSwitchOFF+achBlank+asSwValOFF_Russ;
  313.     asMsgHelp14A_Russ            =      asHelpIndent+aControlSwitch+aBatchCmd+'[-|+]    |     »á¬ÑΓ¡δ⌐ αѪ¿¼            |  '+
  314.                                         achSwitchOFF+achBlank+asSwValOFF_Russ;
  315.     asMsgHelp15A_Russ            =      asHelpIndent+aControlSwitch+aCtrlCodesCmd+'[-|+]    |     ó䬽. π»αáó½∩εΘ¿Ñ ß¿¼ó«½δ '+
  316.                                         '|  '+achSwitchOFF+achBlank+asSwValOFF_Russ;
  317.     asMsgHelp16A_Russ            =      asHelpIndent+aControlSwitch+aLanguageCmd+'n        |     óδíαáΓ∞ ∩ºδ¬              |'+
  318.                                         '  ';
  319.     asMsgHelp17A_Russ            =      asHelpIndent+aControlSwitch+aTabCmd+'n        |     ñ½¿¡á ú«α¿º. Γáíπ½∩µ¿¿    |  ';
  320.     asMsgHelp17B_Russ            =      ' (»α«íѽ«ó)';
  321.     asMsgHelp18A_Russ            =      asHelpIndent+aControlSwitch+aCtrlCharCodeCmd+'[n[-|+]] |     ¿ß»«½∞º«óá¡¿Ñ '+
  322.                                         'ß¿¼ó«½á <n> |  '+asAllChars_Russ;
  323.     asMsgHelp19A_Russ            =      asHelpIndent+aLineSwitch+aLineNumCmd+'n        |     ¡«¼Ñαá ñ½∩ ßΓ᫬          |  ';
  324.     asMsgHelp19B_Russ            =      achBlank+asSwValOFF_Russ;
  325.     asMsgHelp20A_Russ            =      asHelpIndent+aLineSwitch+aLineSpacingCmd+'n        |     »α«íѽ ¼Ñªñπ ßΓα«¬á¼¿     '+
  326.                                         '|  ';
  327.     asMsgHelp20B_Russ            =      achBlank+asSwValOFF_Russ;
  328.     asMsgHelp21A_Russ            =      asHelpIndent+aPageSwitch+aHeightCmd+'n        |     óδß«Γá ßΓαá¡¿µδ           |  ';
  329.     asMsgHelp21B_Russ            =      ' ßΓ᫬';
  330.     asMsgHelp22A_Russ            =      asHelpIndent+aPageSwitch+aWidthCmd+'n        |     Φ¿α¿¡á ßΓαá¡¿µδ           |  ';
  331.     asMsgHelp22B_Russ            =      ' ¬«½«¡«¬';
  332.     asMsgHelp23A_Russ            =      asHelpIndent+aPageSwitch+aPageNumberCmd+'n        |     ¡π¼Ñαᵿ∩ ßΓαá¡¿µ         |'+
  333.                                         '  ';
  334.     asMsgHelp24A_Russ            =      asHelpIndent+aPageSwitch+aPrintOddCmd+'[-|+]    |     »ÑτáΓáΓ∞ ¡ÑτÑΓ¡δÑ ßΓαá¡¿µδ|  '+
  335.                                         achSwitchON+achBlank+asSwValON_Russ;
  336.     asMsgHelp25A_Russ            =      asHelpIndent+aPageSwitch+aPrintEvenCmd+'[-|+]    |     »ÑτáΓáΓ∞ τÑΓ¡δÑ ßΓαá¡¿µδ  |'+
  337.                                         '  '+achSwitchON+achBlank+asSwValON_Russ;
  338.     asMsgHelp26A_Russ            =      asHelpIndent+aPageSwitch+aSkipPagesCmd+'n        |     »α«»πßΓ¿Γ∞ ßΓαá¡¿µδ       |'+
  339.                                         '  ';
  340.     asMsgHelp26B_Russ            =      achBlank+asSwValNONE_Russ;
  341.     asMsgHelp27A_Russ            =      asHelpIndent+aPageSwitch+aCountPagesCmd+'n        |     ¬«½-ó« ßΓαá¡¿µ ñ½∩ »ÑτáΓ¿ |'+
  342.                                         '  ';
  343.     asMsgHelp27B_Russ            =      ' (=óßÑ)';
  344.     asMsgHelp28A_Russ            =      asHelpIndent+aMarginSwitch+aTopMarginCmd+'n        |     óÑασ¡¿⌐ «ΓßΓπ»            '+
  345.                                         '|  ';
  346.     asMsgHelp29A_Russ            =      asHelpIndent+aMarginSwitch+aBottomMarginCmd+'n        |     ¡¿ª¡¿⌐ «ΓßΓπ»          '+
  347.                                         '   |  ';
  348.     asMsgHelp30A_Russ            =      asHelpIndent+aMarginSwitch+aLeftMarginCmd+'n        |     ½Ñóδ⌐ «ΓßΓπ»             '+
  349.                                         ' |  ';
  350.     asMsgHelp31A_Russ            =      asHelpIndent+aMarginSwitch+aRightMarginCmd+'n        |     »αáóδ⌐ «ΓßΓπ»           '+
  351.                                         '  |  ';
  352.     asMsgHelp32A_Russ            =      asHelpIndent+aHeaderSwitch+aHdrLevelCmd+'n        |     ¬«½-ó« ºáú«½«ó¬«ó         |'+
  353.                                         '  ';
  354.     asMsgHelp33A_Russ            =      asHelpIndent+aHeaderSwitch+aHdrTextCmd+'ßΓα«¬á   |     ΓѬßΓ ºáú«½«ó¬á           |'+
  355.                                         '  »πßΓ« '+asSwValNONE_Russ+', Ñß½¿';
  356.     asMsgHelp33B_Russ            =      '                 |                               |  ¡ÑΓ ßΓ᫬¿ Γ«úñá ºá»α«ß';
  357.     asMsgHelp34A_Russ            =      '  èαáΓ¬¿⌐ »α¿¼Ñα';
  358.  
  359.   { day/month/year }
  360.     aDay_01_Russ                =       'é«ß¬αÑßÑ¡∞Ñ';
  361.     aDay_02_Russ                =       'Å«¡Ññѽ∞¡¿¬';
  362.     aDay_03_Russ                =       'éΓ«α¡¿¬';
  363.     aDay_04_Russ                =       'æαÑñá';
  364.     aDay_05_Russ                =       'ùÑΓóÑαú';
  365.     aDay_06_Russ                =       'Å∩Γ¡¿µá';
  366.     aDay_07_Russ                =       'æπíí«Γá';
  367.  
  368.     aMonth_01_Russ              =       'ƒ¡óáα∞';
  369.     aMonth_02_Russ              =       'öÑóαá½∞';
  370.     aMonth_03_Russ              =       'îáαΓ';
  371.     aMonth_04_Russ              =       'Ç»αѽ∞';
  372.     aMonth_05_Russ              =       'îá⌐';
  373.     aMonth_06_Russ              =       'êε¡∞';
  374.     aMonth_07_Russ              =       'êε½∞';
  375.     aMonth_08_Russ              =       'ÇóúπßΓ';
  376.     aMonth_09_Russ              =       'æÑ¡Γ∩íα∞';
  377.     aMonth_10_Russ              =       'ĬΓ∩íα∞';
  378.     aMonth_11_Russ              =       'ì«∩íα∞';
  379.     aMonth_12_Russ              =       'äѬáíα∞';
  380.  
  381.  
  382.  {*********************  Support of GERMANY  *******************}
  383.  
  384.    { global scope }
  385.  {$IFDEF GermanyVersion}
  386.      abGermanyAvail             =       System.True;
  387.  {$ELSE}
  388.      abGermanyAvail             =       System.False;
  389.  {$ENDIF}
  390.  
  391.    { program descriptions }
  392.      asPurposeGerm              =       'LPrint Programme';
  393.      asAuthorGerm               =       'Dima Stefankov';
  394.      asCopyrightGerm            =       'Copyright (c)';
  395.      asMsgVersionGerm           =       '  Version ';
  396.      asProgramGerm              =       'LPrint';
  397.      asProgramPromptGerm        =       asProgramGerm+': ';
  398.      asUProgramGerm             =       'LPRINT';
  399.  
  400.   { languages }
  401.      asEnglishLanguageGerm       =      'Englisch';
  402.      asRussianLanguageGerm       =      'Russisch';
  403.      asGermanyLanguageGerm       =      'Deutsch';
  404.  
  405.   { user response }
  406.     achUserWantGerm              =      'J';
  407.     achUserDontWantGerm          =      'N';
  408.  
  409.   { string constants }
  410.     asSwValON_Germ               =      '(=on)';
  411.     asSwValOFF_Germ              =      '(=off)';
  412.     asSwValNONE_Germ             =      '(=none)';
  413.     asAllChars_Germ              =      'alle symbols erlaubt';
  414.  
  415.   { program messages }
  416.     asMsgBadBooleanSwitchGerm   =       'Falches logischen Schalker ist in den Commandozeite.';
  417.     asMsgBadNumericFoundGerm    =       'Falches numerus Format ist in den Commandozeite.';
  418.     asMsgBadSwitchFoundGerm     =       'Ungültig';
  419.     asMsgsMisMatchSwitchGerm    =       ' Schalker in den Commandozeite gefunden.';
  420.     asMsgFileNotFoundGerm       =       'Nicht Öffnt File ';
  421.     asMsgFileNotCreatedGerm     =       'Nicht schafft File ';
  422.     asMsgSameFilesNotAllowedGerm =      'Nicht macht so ein File wie Eingang und wie Ausgang';
  423.     asMsgBadPrefixSwitchGerm    =       'Falsches Präfix für';
  424.     asMsgBadMarginSwitchGerm    =       'Bad Grenze';
  425.     asMsgBadLineSwitchGerm      =       'Falsche Zeite';
  426.     asMsgBadHeaderSwitchGerm    =       'Falscher Kopf';
  427.     asMsgBadPageSwitchGerm      =       'Falsche Seite';
  428.     asMsgBadFileSwitchGerm      =       'Falsche Name';
  429.     asMsgPrintCtrlSwitchGerm    =       'Falsche Drucker Befehl';
  430.     asMsgBadLangSwitchGerm      =       'Falsches Sprache';
  431.     asMsgTimeOfFileCreateGerm   =       'File angeht:   ';
  432.     asMsgPageGerm               =       'Seite ';
  433.     asMsgPrintPageNumGerm       =       'Drucke Seite  ';
  434.     asMsgPrintLineNumGerm       =       ', Zeite ';
  435.     asMsgWriteFaultGerm         =       'SchriebFehler';
  436.     asMsgDeviceNotReadyGerm     =       'Ausgabegerat nicht bereit';
  437.     asMsgUserWantBreakGerm      =       'Druck abbrechnen? ('+achUserDontWantGerm+'/'+achUserWantGerm+'): ';
  438.     asMsgStopPrintByUserGerm    =       'Druck zeitweinig unterbrochnen';
  439.     asMsgAbortOfPrintGerm       =       'Druck durch Nutzer abgebrochnen.';
  440.     asMsgRetryActionGerm        =       '. Weiter? ('+achUserWantGerm+'/'+achUserDontWantGerm+'): ';
  441.     asMsgOutFileGerm            =       'Ausgabefile ';
  442.     asMsgAlreadyExistsGerm      =       ' schon existiert. Überschreiben? ('+achUserDontWantGerm+'/'+achUserWantGerm+'): ';
  443.     asMsgUserHeaderGerm         =       'Bitte Kopfzeite eingeben:';
  444.     asMsgPrintStartGerm         =       'Ausdruck von ';
  445.     asMsgToGerm                 =       ' bis ';
  446.     asMsgUserAvailableKeysGerm  =       'Drückt '+asExitKey+' Tastur für abbrechen ein Ausdruck, '+asStopKey+
  447.                      ' für stoppen ein Ausdruck.';
  448.     asMsgPrintDoneGerm          =       'Ende. Seiten ';
  449.     asMsgReadFailGerm           =       'File LeseFehler';
  450.     asMsgWriteFailGerm          =       'File SchriebFehler';
  451.     asMsgBadCtrlCodeGerm        =       'Falscher Befehlsymbolkode';
  452.     asMsgLoadBinFileGerm        =       'AusLastung von binarie File ';
  453.     asMsgLoadTransFileGerm      =       'AusLastung von Symbolkode übersetzung File ';
  454.     asMsgScriptFileGerm         =       'Machen ein CommandoFile ';
  455.     asMsgAMGerm                 =       'am';
  456.     asMsgPMGerm                 =       'pm';
  457.  
  458.   { help screen }
  459.     asMsgHelp00A_Germ            =      'kurz helf bildschirm für Sie.';
  460.     asMsgHelp01A_Germ            =      'Machen: ';
  461.     asMsgHelp01B_Germ            =      ' [Options], wohin';
  462.     asMsgHelp02A_Germ            =      '  Options may be preceded by either '+achDosSwitch+' or '+achUnixSwitch+'.';
  463.     asMsgHelp03A_Germ            =      '  Valid options (alle no case-sensitive) are as follows:';
  464.     asMsgHelp04A_Germ            =      '     Schalker    |          meaning              |    default';
  465.     asMsgHelp05A_Germ            =      asHelpIndent+aFileSwitch+aConfigCmd+'str      |     config FileName           |  '+
  466.                                         'empty '+asSwValNONE_Germ;
  467.     asMsgHelp06A_Germ            =      asHelpIndent+aFileSwitch+aSourceCmd+'str      |     source FileName           |  '+
  468.                                         'empty '+asSwValNONE_Germ;
  469.     asMsgHelp07A_Germ            =      asHelpIndent+aFileSwitch+aDestinationCmd+'str      |     dest   FileName           |'+
  470.                                         '  '+asStdDosPrintDevice;
  471.     asMsgHelp08A_Germ            =      asHelpIndent+aFileSwitch+aWordStarCmd+'[-|+]    |     WordStar File             |  '+
  472.                                         achSwitchOFF+achBlank+asSwValOFF_Germ;
  473.     asMsgHelp09A_Germ            =      asHelpIndent+aFileSwitch+aFirstBinaryCmd+'str      |     binfile load at start     |'+
  474.                                         '  empty '+asSwValNONE_Germ;
  475.     asMsgHelp10A_Germ            =      asHelpIndent+aFileSwitch+aLastBinaryCmd+'str      |     binfile load at end       |'+
  476.                                         '  empty '+asSwValNONE_Germ;
  477.     asMsgHelp11A_Germ            =      asHelpIndent+aFileSwitch+aTransCodesCmd+'str      |     translate table File      |'+
  478.                                         '  empty '+asSwValNONE_Germ;
  479.     asMsgHelp12A_Germ            =      asHelpIndent+aControlSwitch+aStatisticsCmd+'[-|+]    |     Ausgang Statistik        '+
  480.                                         ' |  '+
  481.                                         achSwitchON+achBlank+asSwValON_Germ;
  482.     asMsgHelp13A_Germ            =      asHelpIndent+aControlSwitch+aAdvancedCtrlCmd+'[-|+]    |     advanced control       '+
  483.                                         '   |  '+achSwitchOFF+achBlank+asSwValOFF_Germ;
  484.     asMsgHelp14A_Germ            =      asHelpIndent+aControlSwitch+aBatchCmd+'[-|+]    |     batch mode control        |  '+
  485.                                         achSwitchOFF+achBlank+asSwValOFF_Germ;
  486.     asMsgHelp15A_Germ            =      asHelpIndent+aControlSwitch+aCtrlCodesCmd+'[-|+]    |     strip control chars       '+
  487.                                         '|  '+achSwitchOFF+achBlank+asSwValOFF_Germ;
  488.     asMsgHelp16A_Germ            =      asHelpIndent+aControlSwitch+aLanguageCmd+'n        |     select Sprache            |'+
  489.                                         '  ';
  490.     asMsgHelp17A_Germ            =      asHelpIndent+aControlSwitch+aTabCmd+'n        |     set htab size             |  ';
  491.     asMsgHelp17B_Germ            =      ' (spaces)';
  492.     asMsgHelp18A_Germ            =      asHelpIndent+aControlSwitch+aCtrlCharCodeCmd+'[n[-|+]] |     toggle use of char <n> '+
  493.                                         '   |  '+asAllChars_Germ;
  494.     asMsgHelp19A_Germ            =      asHelpIndent+aLineSwitch+aLineNumCmd+'n        |     Zeite numbers             |  ';
  495.     asMsgHelp19B_Germ            =      achBlank+asSwValOFF_Germ;
  496.     asMsgHelp20A_Germ            =      asHelpIndent+aLineSwitch+aLineSpacingCmd+'n        |     Zeite spacing             '+
  497.                                         '|  ';
  498.     asMsgHelp20B_Germ            =      achBlank+asSwValOFF_Germ;
  499.     asMsgHelp21A_Germ            =      asHelpIndent+aPageSwitch+aHeightCmd+'n        |     Seite height              |  ';
  500.     asMsgHelp21B_Germ            =      ' lines';
  501.     asMsgHelp22A_Germ            =      asHelpIndent+aPageSwitch+aWidthCmd+'n        |     Seite width               |  ';
  502.     asMsgHelp22B_Germ            =      ' columns';
  503.     asMsgHelp23A_Germ            =      asHelpIndent+aPageSwitch+aPageNumberCmd+'n        |     Seite number              |'+
  504.                                         '  ';
  505.     asMsgHelp24A_Germ            =      asHelpIndent+aPageSwitch+aPrintOddCmd+'[-|+]    |     print odd  Seiten         |  '+
  506.                                         achSwitchON+achBlank+asSwValON_Germ;
  507.     asMsgHelp25A_Germ            =      asHelpIndent+aPageSwitch+aPrintEvenCmd+'[-|+]    |     print even Seiten         |'+
  508.                                         '  '+achSwitchON+achBlank+asSwValON_Germ;
  509.     asMsgHelp26A_Germ            =      asHelpIndent+aPageSwitch+aSkipPagesCmd+'n        |     Seite skip                |'+
  510.                                         '  ';
  511.     asMsgHelp26B_Germ            =      achBlank+asSwValNONE_Germ;
  512.     asMsgHelp27A_Germ            =      asHelpIndent+aPageSwitch+aCountPagesCmd+'n        |     Seiten count to print     |'+
  513.                                         '  ';
  514.     asMsgHelp27B_Germ            =      ' (=alle)';
  515.     asMsgHelp28A_Germ            =      asHelpIndent+aMarginSwitch+aTopMarginCmd+'n        |     Grenze top                '+
  516.                                         '|  ';
  517.     asMsgHelp29A_Germ            =      asHelpIndent+aMarginSwitch+aBottomMarginCmd+'n        |     Grenze bottom          '+
  518.                                         '   |  ';
  519.     asMsgHelp30A_Germ            =      asHelpIndent+aMarginSwitch+aLeftMarginCmd+'n        |     Grenze link              '+
  520.                                         ' |  ';
  521.     asMsgHelp31A_Germ            =      asHelpIndent+aMarginSwitch+aRightMarginCmd+'n        |     Grenze recht            '+
  522.                                         '  |  ';
  523.     asMsgHelp32A_Germ            =      asHelpIndent+aHeaderSwitch+aHdrLevelCmd+'n        |     Kopf level                |'+
  524.                                         '  ';
  525.     asMsgHelp33A_Germ            =      asHelpIndent+aHeaderSwitch+aHdrTextCmd+'str      |     Kopf text                 |'+
  526.                                         '  empty '+asSwValNONE_Germ+', ask user';
  527.     asMsgHelp33B_Germ            =      '                 |                               |  if switch without string';
  528.     asMsgHelp34A_Germ            =      '  Kurz Beispiel';
  529.  
  530.   { day/month/year }
  531.     aDay_01_Germ                =       'Sonntag';
  532.     aDay_02_Germ                =       'Montag';
  533.     aDay_03_Germ                =       'Dienstag';
  534.     aDay_04_Germ                =       'Mittwoch';
  535.     aDay_05_Germ                =       'Donnerstag';
  536.     aDay_06_Germ                =       'Freitag';
  537.     aDay_07_Germ                =       'Sonnabend';
  538.  
  539.     aMonth_01_Germ              =       'Januar';
  540.     aMonth_02_Germ              =       'Februar';
  541.     aMonth_03_Germ              =       'März';
  542.     aMonth_04_Germ              =       'April';
  543.     aMonth_05_Germ              =       'Mai';
  544.     aMonth_06_Germ              =       'Juni';
  545.     aMonth_07_Germ              =       'Juli';
  546.     aMonth_08_Germ              =       'August';
  547.     aMonth_09_Germ              =       'September';
  548.     aMonth_10_Germ              =       'Oktober';
  549.     aMonth_11_Germ              =       'November';
  550.     aMonth_12_Germ              =       'Dezember';
  551.  
  552.  
  553. {*====================== TYPED CONSTANTS PART ==========================*}
  554.  
  555. CONST
  556.  
  557.   { suppoted natural languages for each generated version }
  558.     gbLanguagesArray            :       ARRAY[aMinLangNum..aMaxLangNum]  OF System.Boolean =
  559.                                            (abEnglishAvail,
  560.                                             abRussianAvail,
  561.                                             abGermanyAvail);
  562.  
  563.   { day/month/year }
  564.     gstrucDaysOfWeek : ARRAY [aMinLangNum..aMaxLangNum]  OF
  565.                           ARRAY[0..6] OF  System.PChar  =
  566.                   {$IFDEF EnglishVersion}
  567.                      ((aDay_01_Engl, aDay_02_Engl,
  568.                        aDay_03_Engl, aDay_04_Engl,
  569.                        aDay_05_Engl, aDay_06_Engl,
  570.                        aDay_07_Engl),
  571.                   {$ELSE}
  572.                      ((asBlankStr, asBlankStr,
  573.                        asBlankStr, asBlankStr,
  574.                        asBlankStr, asBlankStr,
  575.                        asBlankStr),
  576.                   {$ENDIF}
  577.                   {$IFDEF RussianVersion}
  578.                       (aDay_01_Russ, aDay_02_Russ,
  579.                        aDay_03_Russ, aDay_04_Russ,
  580.                        aDay_05_Russ, aDay_06_Russ,
  581.                        aDay_07_Russ),
  582.                   {$ELSE}
  583.                       (asBlankStr, asBlankStr,
  584.                        asBlankStr, asBlankStr,
  585.                        asBlankStr, asBlankStr,
  586.                        asBlankStr),
  587.                   {$ENDIF}
  588.                   {$IFDEF GermanyVersion}
  589.                       (aDay_01_Germ, aDay_02_Germ,
  590.                        aDay_03_Germ, aDay_04_Germ,
  591.                        aDay_05_Germ, aDay_06_Germ,
  592.                        aDay_07_Germ));
  593.                   {$ELSE}
  594.                       (asBlankStr, asBlankStr,
  595.                        asBlankStr, asBlankStr,
  596.                        asBlankStr, asBlankStr,
  597.                        asBlankStr));
  598.                   {$ENDIF}
  599.  
  600.  
  601.     gstrucMonthsOfYear :  ARRAY [aMinLangNum..aMaxLangNum]  OF
  602.                             ARRAY [1..12]  OF  System.PChar =
  603.                   {$IFDEF EnglishVersion}
  604.                        ((aMonth_01_Engl, aMonth_02_Engl, aMonth_03_Engl,
  605.                          aMonth_04_Engl, aMonth_05_Engl, aMonth_06_Engl,
  606.                          aMonth_07_Engl, aMonth_08_Engl, aMonth_09_Engl,
  607.                          aMonth_10_Engl, aMonth_11_Engl, aMonth_12_Engl),
  608.                   {$ELSE}
  609.                        ((asBlankStr, asBlankStr, asBlankStr,
  610.                          asBlankStr, asBlankStr, asBlankStr,
  611.                          asBlankStr, asBlankStr, asBlankStr,
  612.                          asBlankStr, asBlankStr, asBlankStr),
  613.                   {$ENDIF}
  614.                   {$IFDEF RussianVersion}
  615.                         (aMonth_01_Russ, aMonth_02_Russ, aMonth_03_Russ,
  616.                          aMonth_04_Russ, aMonth_05_Russ, aMonth_06_Russ,
  617.                          aMonth_07_Russ, aMonth_08_Russ, aMonth_09_Russ,
  618.                          aMonth_10_Russ, aMonth_11_Russ, aMonth_12_Russ),
  619.                   {$ELSE}
  620.                         (asBlankStr, asBlankStr, asBlankStr,
  621.                          asBlankStr, asBlankStr, asBlankStr,
  622.                          asBlankStr, asBlankStr, asBlankStr,
  623.                          asBlankStr, asBlankStr, asBlankStr),
  624.                   {$ENDIF}
  625.                   {$IFDEF GermanyVersion}
  626.                         (aMonth_01_Germ, aMonth_02_Germ, aMonth_03_Germ,
  627.                          aMonth_04_Germ, aMonth_05_Germ, aMonth_06_Germ,
  628.                          aMonth_07_Germ, aMonth_08_Germ, aMonth_09_Germ,
  629.                          aMonth_10_Germ, aMonth_11_Germ, aMonth_12_Germ));
  630.                   {$ELSE}
  631.                         (asBlankStr, asBlankStr, asBlankStr,
  632.                          asBlankStr, asBlankStr, asBlankStr,
  633.                          asBlankStr, asBlankStr, asBlankStr,
  634.                          asBlankStr, asBlankStr, asBlankStr));
  635.                   {$ENDIF}
  636.  
  637.   { international program messages }
  638.     gszPurpose                  :   ARRAY [aMinLangNum..aMaxLangNum]  OF
  639.                                        System.PChar =
  640.                                   {$IFDEF EnglishVersion}
  641.                                      (asPurposeEngl,
  642.                                   {$ELSE}
  643.                                      (asBlankStr,
  644.                                   {$ENDIF}
  645.                                   {$IFDEF RussianVersion}
  646.                                       asPurposeRuss,
  647.                                   {$ELSE}
  648.                                       asBlankStr,
  649.                                   {$ENDIF}
  650.                                   {$IFDEF GermanyVersion}
  651.                                       asPurposeGerm);
  652.                                   {$ELSE}
  653.                                       asBlankStr);
  654.                                   {$ENDIF}
  655.  
  656.     gszAuthor                   :   ARRAY [aMinLangNum..aMaxLangNum]  OF
  657.                                        System.PChar =
  658.                                   {$IFDEF EnglishVersion}
  659.                                      (asAuthorEngl,
  660.                                   {$ELSE}
  661.                                      (asBlankStr,
  662.                                   {$ENDIF}
  663.                                   {$IFDEF RussianVersion}
  664.                                       asAuthorRuss,
  665.                                   {$ELSE}
  666.                                       asBlankStr,
  667.                                   {$ENDIF}
  668.                                   {$IFDEF GermanyVersion}
  669.                                       asAuthorGerm);
  670.                                   {$ELSE}
  671.                                       asBlankStr);
  672.                                   {$ENDIF}
  673.  
  674.     gszCopyright                :   ARRAY [aMinLangNum..aMaxLangNum]  OF
  675.                                        System.PChar =
  676.                                   {$IFDEF EnglishVersion}
  677.                                      (asCopyrightEngl,
  678.                                   {$ELSE}
  679.                                      (asBlankStr,
  680.                                   {$ENDIF}
  681.                                   {$IFDEF RussianVersion}
  682.                                       asCopyrightRuss,
  683.                                   {$ELSE}
  684.                                       asBlankStr,
  685.                                   {$ENDIF}
  686.                                   {$IFDEF GermanyVersion}
  687.                                       asCopyrightGerm);
  688.                                   {$ELSE}
  689.                                       asBlankStr);
  690.                                   {$ENDIF}
  691.  
  692.     gszProgramPrompt            :   ARRAY [aMinLangNum..aMaxLangNum]  OF
  693.                                        System.PChar =
  694.                                   {$IFDEF EnglishVersion}
  695.                                      (asProgramPromptEngl,
  696.                                   {$ELSE}
  697.                                      (asBlankStr,
  698.                                   {$ENDIF}
  699.                                   {$IFDEF RussianVersion}
  700.                                       asProgramPromptRuss,
  701.                                   {$ELSE}
  702.                                       asBlankStr,
  703.                                   {$ENDIF}
  704.                                   {$IFDEF GermanyVersion}
  705.                                       asProgramPromptGerm);
  706.                                   {$ELSE}
  707.                                       asBlankStr);
  708.                                   {$ENDIF}
  709.  
  710.     gszProgram                  :   ARRAY [aMinLangNum..aMaxLangNum]  OF
  711.                                        System.PChar =
  712.                                   {$IFDEF EnglishVersion}
  713.                                      (asProgramEngl,
  714.                                   {$ELSE}
  715.                                      (asBlankStr,
  716.                                   {$ENDIF}
  717.                                   {$IFDEF RussianVersion}
  718.                                       asProgramRuss,
  719.                                   {$ELSE}
  720.                                       asBlankStr,
  721.                                   {$ENDIF}
  722.                                   {$IFDEF GermanyVersion}
  723.                                       asProgramGerm);
  724.                                   {$ELSE}
  725.                                       asBlankStr);
  726.                                   {$ENDIF}
  727.  
  728.     gszUProgram                 :   ARRAY [aMinLangNum..aMaxLangNum]  OF
  729.                                        System.PChar =
  730.                                   {$IFDEF EnglishVersion}
  731.                                      (asUProgramEngl,
  732.                                   {$ELSE}
  733.                                      (asBlankStr,
  734.                                   {$ENDIF}
  735.                                   {$IFDEF RussianVersion}
  736.                                       asUProgramRuss,
  737.                                   {$ELSE}
  738.                                       asBlankStr,
  739.                                   {$ENDIF}
  740.                                   {$IFDEF GermanyVersion}
  741.                                       asUProgramGerm);
  742.                                   {$ELSE}
  743.                                       asBlankStr);
  744.                                   {$ENDIF}
  745.  
  746.     gszMsgVersion                :   ARRAY [aMinLangNum..aMaxLangNum]  OF
  747.                                        System.PChar =
  748.                                   {$IFDEF EnglishVersion}
  749.                                      (asMsgVersionEngl,
  750.                                   {$ELSE}
  751.                                      (asBlankStr,
  752.                                   {$ENDIF}
  753.                                   {$IFDEF RussianVersion}
  754.                                       asMsgVersionRuss,
  755.                                   {$ELSE}
  756.                                       asBlankStr,
  757.                                   {$ENDIF}
  758.                                   {$IFDEF GermanyVersion}
  759.                                       asMsgVersionGerm);
  760.                                   {$ELSE}
  761.                                       asBlankStr);
  762.                                   {$ENDIF}
  763.  
  764.     gszMsgBadBooleanSwitch       :   ARRAY [aMinLangNum..aMaxLangNum]  OF
  765.                                        System.PChar =
  766.                                   {$IFDEF EnglishVersion}
  767.                                      (asMsgBadBooleanSwitchEngl,
  768.                                   {$ELSE}
  769.                                      (asBlankStr,
  770.                                   {$ENDIF}
  771.                                   {$IFDEF RussianVersion}
  772.                                       asMsgBadBooleanSwitchRuss,
  773.                                   {$ELSE}
  774.                                       asBlankStr,
  775.                                   {$ENDIF}
  776.                                   {$IFDEF GermanyVersion}
  777.                                       asMsgBadBooleanSwitchGerm);
  778.                                   {$ELSE}
  779.                                       asBlankStr);
  780.                                   {$ENDIF}
  781.  
  782.     gszMsgBadNumericFound        :   ARRAY [aMinLangNum..aMaxLangNum]  OF
  783.                                        System.PChar =
  784.                                   {$IFDEF EnglishVersion}
  785.                                      (asMsgBadNumericFoundEngl,
  786.                                   {$ELSE}
  787.                                      (asBlankStr,
  788.                                   {$ENDIF}
  789.                                   {$IFDEF RussianVersion}
  790.                                       asMsgBadNumericFoundRuss,
  791.                                   {$ELSE}
  792.                                       asBlankStr,
  793.                                   {$ENDIF}
  794.                                   {$IFDEF GermanyVersion}
  795.                                       asMsgBadNumericFoundGerm);
  796.                                   {$ELSE}
  797.                                       asBlankStr);
  798.                                   {$ENDIF}
  799.  
  800.     gszMsgBadSwitchFound        :   ARRAY [aMinLangNum..aMaxLangNum]  OF
  801.                                        System.PChar =
  802.                                   {$IFDEF EnglishVersion}
  803.                                      (asMsgBadSwitchFoundEngl,
  804.                                   {$ELSE}
  805.                                      (asBlankStr,
  806.                                   {$ENDIF}
  807.                                   {$IFDEF RussianVersion}
  808.                                       asMsgBadSwitchFoundRuss,
  809.                                   {$ELSE}
  810.                                       asBlankStr,
  811.                                   {$ENDIF}
  812.                                   {$IFDEF GermanyVersion}
  813.                                       asMsgBadSwitchFoundGerm);
  814.                                   {$ELSE}
  815.                                       asBlankStr);
  816.                                   {$ENDIF}
  817.  
  818.     gszMsgsMisMatchSwitch        :   ARRAY [aMinLangNum..aMaxLangNum]  OF
  819.                                        System.PChar =
  820.                                   {$IFDEF EnglishVersion}
  821.                                      (asMsgsMisMatchSwitchEngl,
  822.                                   {$ELSE}
  823.                                      (asBlankStr,
  824.                                   {$ENDIF}
  825.                                   {$IFDEF RussianVersion}
  826.                                       asMsgsMisMatchSwitchRuss,
  827.                                   {$ELSE}
  828.                                       asBlankStr,
  829.                                   {$ENDIF}
  830.                                   {$IFDEF GermanyVersion}
  831.                                       asMsgsMisMatchSwitchGerm);
  832.                                   {$ELSE}
  833.                                       asBlankStr);
  834.                                   {$ENDIF}
  835.  
  836.     gszMsgFileNotFound           :   ARRAY [aMinLangNum..aMaxLangNum]  OF
  837.                                        System.PChar =
  838.                                   {$IFDEF EnglishVersion}
  839.                                      (asMsgFileNotFoundEngl,
  840.                                   {$ELSE}
  841.                                      (asBlankStr,
  842.                                   {$ENDIF}
  843.                                   {$IFDEF RussianVersion}
  844.                                       asMsgFileNotFoundRuss,
  845.                                   {$ELSE}
  846.                                       asBlankStr,
  847.                                   {$ENDIF}
  848.                                   {$IFDEF GermanyVersion}
  849.                                       asMsgFileNotFoundGerm);
  850.                                   {$ELSE}
  851.                                       asBlankStr);
  852.                                   {$ENDIF}
  853.  
  854.     gszMsgFileNotCreated         :   ARRAY [aMinLangNum..aMaxLangNum]  OF
  855.                                        System.PChar =
  856.                                   {$IFDEF EnglishVersion}
  857.                                      (asMsgFileNotCreatedEngl,
  858.                                   {$ELSE}
  859.                                      (asBlankStr,
  860.                                   {$ENDIF}
  861.                                   {$IFDEF RussianVersion}
  862.                                       asMsgFileNotCreatedRuss,
  863.                                   {$ELSE}
  864.                                       asBlankStr,
  865.                                   {$ENDIF}
  866.                                   {$IFDEF GermanyVersion}
  867.                                       asMsgFileNotCreatedGerm);
  868.                                   {$ELSE}
  869.                                       asBlankStr);
  870.                                   {$ENDIF}
  871.  
  872.     gszMsgSameFilesNotAllowed    :   ARRAY [aMinLangNum..aMaxLangNum]  OF
  873.                                        System.PChar =
  874.                                   {$IFDEF EnglishVersion}
  875.                                      (asMsgSameFilesNotAllowedEngl,
  876.                                   {$ELSE}
  877.                                      (asBlankStr,
  878.                                   {$ENDIF}
  879.                                   {$IFDEF RussianVersion}
  880.                                       asMsgSameFilesNotAllowedRuss,
  881.                                   {$ELSE}
  882.                                       asBlankStr,
  883.                                   {$ENDIF}
  884.                                   {$IFDEF GermanyVersion}
  885.                                       asMsgSameFilesNotAllowedGerm);
  886.                                   {$ELSE}
  887.                                       asBlankStr);
  888.                                   {$ENDIF}
  889.  
  890.     gszMsgBadPrefixSwitch        :   ARRAY [aMinLangNum..aMaxLangNum]  OF
  891.                                        System.PChar =
  892.                                   {$IFDEF EnglishVersion}
  893.                                      (asMsgBadPrefixSwitchEngl,
  894.                                   {$ELSE}
  895.                                      (asBlankStr,
  896.                                   {$ENDIF}
  897.                                   {$IFDEF RussianVersion}
  898.                                       asMsgBadPrefixSwitchRuss,
  899.                                   {$ELSE}
  900.                                       asBlankStr,
  901.                                   {$ENDIF}
  902.                                   {$IFDEF GermanyVersion}
  903.                                       asMsgBadPrefixSwitchGerm);
  904.                                   {$ELSE}
  905.                                       asBlankStr);
  906.                                   {$ENDIF}
  907.  
  908.     gszMsgBadMarginSwitch        :   ARRAY [aMinLangNum..aMaxLangNum]  OF
  909.                                        System.PChar =
  910.                                   {$IFDEF EnglishVersion}
  911.                                      (asMsgBadMarginSwitchEngl,
  912.                                   {$ELSE}
  913.                                      (asBlankStr,
  914.                                   {$ENDIF}
  915.                                   {$IFDEF RussianVersion}
  916.                                       asMsgBadMarginSwitchRuss,
  917.                                   {$ELSE}
  918.                                       asBlankStr,
  919.                                   {$ENDIF}
  920.                                   {$IFDEF GermanyVersion}
  921.                                       asMsgBadMarginSwitchGerm);
  922.                                   {$ELSE}
  923.                                       asBlankStr);
  924.                                   {$ENDIF}
  925.  
  926.     gszMsgBadLineSwitch          :   ARRAY [aMinLangNum..aMaxLangNum]  OF
  927.                                        System.PChar =
  928.                                   {$IFDEF EnglishVersion}
  929.                                      (asMsgBadLineSwitchEngl,
  930.                                   {$ELSE}
  931.                                      (asBlankStr,
  932.                                   {$ENDIF}
  933.                                   {$IFDEF RussianVersion}
  934.                                       asMsgBadLineSwitchRuss,
  935.                                   {$ELSE}
  936.                                       asBlankStr,
  937.                                   {$ENDIF}
  938.                                   {$IFDEF GermanyVersion}
  939.                                       asMsgBadLineSwitchGerm);
  940.                                   {$ELSE}
  941.                                       asBlankStr);
  942.                                   {$ENDIF}
  943.  
  944.     gszMsgBadHeaderSwitch        :   ARRAY [aMinLangNum..aMaxLangNum]  OF
  945.                                        System.PChar =
  946.                                   {$IFDEF EnglishVersion}
  947.                                      (asMsgBadHeaderSwitchEngl,
  948.                                   {$ELSE}
  949.                                      (asBlankStr,
  950.                                   {$ENDIF}
  951.                                   {$IFDEF RussianVersion}
  952.                                       asMsgBadHeaderSwitchRuss,
  953.                                   {$ELSE}
  954.                                       asBlankStr,
  955.                                   {$ENDIF}
  956.                                   {$IFDEF GermanyVersion}
  957.                                       asMsgBadHeaderSwitchGerm);
  958.                                   {$ELSE}
  959.                                       asBlankStr);
  960.                                   {$ENDIF}
  961.  
  962.     gszMsgBadPageSwitch          :   ARRAY [aMinLangNum..aMaxLangNum]  OF
  963.                                        System.PChar =
  964.                                   {$IFDEF EnglishVersion}
  965.                                      (asMsgBadPageSwitchEngl,
  966.                                   {$ELSE}
  967.                                      (asBlankStr,
  968.                                   {$ENDIF}
  969.                                   {$IFDEF RussianVersion}
  970.                                       asMsgBadPageSwitchRuss,
  971.                                   {$ELSE}
  972.                                       asBlankStr,
  973.                                   {$ENDIF}
  974.                                   {$IFDEF GermanyVersion}
  975.                                       asMsgBadPageSwitchGerm);
  976.                                   {$ELSE}
  977.                                       asBlankStr);
  978.                                   {$ENDIF}
  979.  
  980.     gszMsgBadFileSwitch          :   ARRAY [aMinLangNum..aMaxLangNum]  OF
  981.                                        System.PChar =
  982.                                   {$IFDEF EnglishVersion}
  983.                                      (asMsgBadFileSwitchEngl,
  984.                                   {$ELSE}
  985.                                      (asBlankStr,
  986.                                   {$ENDIF}
  987.                                   {$IFDEF RussianVersion}
  988.                                       asMsgBadFileSwitchRuss,
  989.                                   {$ELSE}
  990.                                       asBlankStr,
  991.                                   {$ENDIF}
  992.                                   {$IFDEF GermanyVersion}
  993.                                       asMsgBadFileSwitchGerm);
  994.                                   {$ELSE}
  995.                                       asBlankStr);
  996.                                   {$ENDIF}
  997.  
  998.     gszMsgPrintCtrlSwitch        :   ARRAY [aMinLangNum..aMaxLangNum]  OF
  999.                                        System.PChar =
  1000.                                   {$IFDEF EnglishVersion}
  1001.                                      (asMsgPrintCtrlSwitchEngl,
  1002.                                   {$ELSE}
  1003.                                      (asBlankStr,
  1004.                                   {$ENDIF}
  1005.                                   {$IFDEF RussianVersion}
  1006.                                       asMsgPrintCtrlSwitchRuss,
  1007.                                   {$ELSE}
  1008.                                       asBlankStr,
  1009.                                   {$ENDIF}
  1010.                                   {$IFDEF GermanyVersion}
  1011.                                       asMsgPrintCtrlSwitchGerm);
  1012.                                   {$ELSE}
  1013.                                       asBlankStr);
  1014.                                   {$ENDIF}
  1015.  
  1016.     gszMsgBadLangSwitch          :   ARRAY [aMinLangNum..aMaxLangNum]  OF
  1017.                                        System.PChar =
  1018.                                   {$IFDEF EnglishVersion}
  1019.                                      (asMsgBadLangSwitchEngl,
  1020.                                   {$ELSE}
  1021.                                      (asBlankStr,
  1022.                                   {$ENDIF}
  1023.                                   {$IFDEF RussianVersion}
  1024.                                       asMsgBadLangSwitchRuss,
  1025.                                   {$ELSE}
  1026.                                       asBlankStr,
  1027.                                   {$ENDIF}
  1028.                                   {$IFDEF GermanyVersion}
  1029.                                       asMsgBadLangSwitchGerm);
  1030.                                   {$ELSE}
  1031.                                       asBlankStr);
  1032.                                   {$ENDIF}
  1033.  
  1034.     gszMsgTimeOfFileCreate       :   ARRAY [aMinLangNum..aMaxLangNum]  OF
  1035.                                        System.PChar =
  1036.                                   {$IFDEF EnglishVersion}
  1037.                                      (asMsgTimeOfFileCreateEngl,
  1038.                                   {$ELSE}
  1039.                                      (asBlankStr,
  1040.                                   {$ENDIF}
  1041.                                   {$IFDEF RussianVersion}
  1042.                                       asMsgTimeOfFileCreateRuss,
  1043.                                   {$ELSE}
  1044.                                       asBlankStr,
  1045.                                   {$ENDIF}
  1046.                                   {$IFDEF GermanyVersion}
  1047.                                       asMsgTimeOfFileCreateGerm);
  1048.                                   {$ELSE}
  1049.                                       asBlankStr);
  1050.                                   {$ENDIF}
  1051.  
  1052.     gszMsgPage                   :   ARRAY [aMinLangNum..aMaxLangNum]  OF
  1053.                                        System.PChar =
  1054.                                   {$IFDEF EnglishVersion}
  1055.                                      (asMsgPageEngl,
  1056.                                   {$ELSE}
  1057.                                      (asBlankStr,
  1058.                                   {$ENDIF}
  1059.                                   {$IFDEF RussianVersion}
  1060.                                       asMsgPageRuss,
  1061.                                   {$ELSE}
  1062.                                       asBlankStr,
  1063.                                   {$ENDIF}
  1064.                                   {$IFDEF GermanyVersion}
  1065.                                       asMsgPageGerm);
  1066.                                   {$ELSE}
  1067.                                       asBlankStr);
  1068.                                   {$ENDIF}
  1069.  
  1070.     gszMsgPrintPageNum           :   ARRAY [aMinLangNum..aMaxLangNum]  OF
  1071.                                        System.PChar =
  1072.                                   {$IFDEF EnglishVersion}
  1073.                                      (asMsgPrintPageNumEngl,
  1074.                                   {$ELSE}
  1075.                                      (asBlankStr,
  1076.                                   {$ENDIF}
  1077.                                   {$IFDEF RussianVersion}
  1078.                                       asMsgPrintPageNumRuss,
  1079.                                   {$ELSE}
  1080.                                       asBlankStr,
  1081.                                   {$ENDIF}
  1082.                                   {$IFDEF GermanyVersion}
  1083.                                       asMsgPrintPageNumGerm);
  1084.                                   {$ELSE}
  1085.                                       asBlankStr);
  1086.                                   {$ENDIF}
  1087.  
  1088.     gszMsgPrintLineNum           :   ARRAY [aMinLangNum..aMaxLangNum]  OF
  1089.                                        System.PChar =
  1090.                                   {$IFDEF EnglishVersion}
  1091.                                      (asMsgPrintLineNumEngl,
  1092.                                   {$ELSE}
  1093.                                      (asBlankStr,
  1094.                                   {$ENDIF}
  1095.                                   {$IFDEF RussianVersion}
  1096.                                       asMsgPrintLineNumRuss,
  1097.                                   {$ELSE}
  1098.                                       asBlankStr,
  1099.                                   {$ENDIF}
  1100.                                   {$IFDEF GermanyVersion}
  1101.                                       asMsgPrintLineNumGerm);
  1102.                                   {$ELSE}
  1103.                                       asBlankStr);
  1104.                                   {$ENDIF}
  1105.  
  1106.     gszMsgWriteFault             :   ARRAY [aMinLangNum..aMaxLangNum]  OF
  1107.                                        System.PChar =
  1108.                                   {$IFDEF EnglishVersion}
  1109.                                      (asMsgWriteFaultEngl,
  1110.                                   {$ELSE}
  1111.                                      (asBlankStr,
  1112.                                   {$ENDIF}
  1113.                                   {$IFDEF RussianVersion}
  1114.                                       asMsgWriteFaultRuss,
  1115.                                   {$ELSE}
  1116.                                       asBlankStr,
  1117.                                   {$ENDIF}
  1118.                                   {$IFDEF GermanyVersion}
  1119.                                       asMsgWriteFaultGerm);
  1120.                                   {$ELSE}
  1121.                                       asBlankStr);
  1122.                                   {$ENDIF}
  1123.  
  1124.     gszMsgDeviceNotReady         :   ARRAY [aMinLangNum..aMaxLangNum]  OF
  1125.                                        System.PChar =
  1126.                                   {$IFDEF EnglishVersion}
  1127.                                      (asMsgDeviceNotReadyEngl,
  1128.                                   {$ELSE}
  1129.                                      (asBlankStr,
  1130.                                   {$ENDIF}
  1131.                                   {$IFDEF RussianVersion}
  1132.                                       asMsgDeviceNotReadyRuss,
  1133.                                   {$ELSE}
  1134.                                       asBlankStr,
  1135.                                   {$ENDIF}
  1136.                                   {$IFDEF GermanyVersion}
  1137.                                       asMsgDeviceNotReadyGerm);
  1138.                                   {$ELSE}
  1139.                                       asBlankStr);
  1140.                                   {$ENDIF}
  1141.  
  1142.     gszMsgUserWantBreak          :   ARRAY [aMinLangNum..aMaxLangNum]  OF
  1143.                                        System.PChar =
  1144.                                   {$IFDEF EnglishVersion}
  1145.                                      (asMsgUserWantBreakEngl,
  1146.                                   {$ELSE}
  1147.                                      (asBlankStr,
  1148.                                   {$ENDIF}
  1149.                                   {$IFDEF RussianVersion}
  1150.                                       asMsgUserWantBreakRuss,
  1151.                                   {$ELSE}
  1152.                                       asBlankStr,
  1153.                                   {$ENDIF}
  1154.                                   {$IFDEF GermanyVersion}
  1155.                                       asMsgUserWantBreakGerm);
  1156.                                   {$ELSE}
  1157.                                       asBlankStr);
  1158.                                   {$ENDIF}
  1159.  
  1160.     gszMsgStopPrintByUser        :   ARRAY [aMinLangNum..aMaxLangNum]  OF
  1161.                                        System.PChar =
  1162.                                   {$IFDEF EnglishVersion}
  1163.                                      (asMsgStopPrintByUserEngl,
  1164.                                   {$ELSE}
  1165.                                      (asBlankStr,
  1166.                                   {$ENDIF}
  1167.                                   {$IFDEF RussianVersion}
  1168.                                       asMsgStopPrintByUserRuss,
  1169.                                   {$ELSE}
  1170.                                       asBlankStr,
  1171.                                   {$ENDIF}
  1172.                                   {$IFDEF GermanyVersion}
  1173.                                       asMsgStopPrintByUserGerm);
  1174.                                   {$ELSE}
  1175.                                       asBlankStr);
  1176.                                   {$ENDIF}
  1177.  
  1178.     gszMsgAbortOfPrint           :   ARRAY [aMinLangNum..aMaxLangNum]  OF
  1179.                                        System.PChar =
  1180.                                   {$IFDEF EnglishVersion}
  1181.                                      (asMsgAbortOfPrintEngl,
  1182.                                   {$ELSE}
  1183.                                      (asBlankStr,
  1184.                                   {$ENDIF}
  1185.                                   {$IFDEF RussianVersion}
  1186.                                       asMsgAbortOfPrintRuss,
  1187.                                   {$ELSE}
  1188.                                       asBlankStr,
  1189.                                   {$ENDIF}
  1190.                                   {$IFDEF GermanyVersion}
  1191.                                       asMsgAbortOfPrintGerm);
  1192.                                   {$ELSE}
  1193.                                       asBlankStr);
  1194.                                   {$ENDIF}
  1195.  
  1196.     gszMsgRetryAction            :   ARRAY [aMinLangNum..aMaxLangNum]  OF
  1197.                                        System.PChar =
  1198.                                   {$IFDEF EnglishVersion}
  1199.                                      (asMsgRetryActionEngl,
  1200.                                   {$ELSE}
  1201.                                      (asBlankStr,
  1202.                                   {$ENDIF}
  1203.                                   {$IFDEF RussianVersion}
  1204.                                       asMsgRetryActionRuss,
  1205.                                   {$ELSE}
  1206.                                       asBlankStr,
  1207.                                   {$ENDIF}
  1208.                                   {$IFDEF GermanyVersion}
  1209.                                       asMsgRetryActionGerm);
  1210.                                   {$ELSE}
  1211.                                       asBlankStr);
  1212.                                   {$ENDIF}
  1213.  
  1214.     gszMsgOutFile                :   ARRAY [aMinLangNum..aMaxLangNum]  OF
  1215.                                        System.PChar =
  1216.                                   {$IFDEF EnglishVersion}
  1217.                                      (asMsgOutFileEngl,
  1218.                                   {$ELSE}
  1219.                                      (asBlankStr,
  1220.                                   {$ENDIF}
  1221.                                   {$IFDEF RussianVersion}
  1222.                                       asMsgOutFileRuss,
  1223.                                   {$ELSE}
  1224.                                       asBlankStr,
  1225.                                   {$ENDIF}
  1226.                                   {$IFDEF GermanyVersion}
  1227.                                       asMsgOutFileGerm);
  1228.                                   {$ELSE}
  1229.                                       asBlankStr);
  1230.                                   {$ENDIF}
  1231.  
  1232.     gszMsgAlreadyExists          :   ARRAY [aMinLangNum..aMaxLangNum]  OF
  1233.                                        System.PChar =
  1234.                                   {$IFDEF EnglishVersion}
  1235.                                      (asMsgAlreadyExistsEngl,
  1236.                                   {$ELSE}
  1237.                                      (asBlankStr,
  1238.                                   {$ENDIF}
  1239.                                   {$IFDEF RussianVersion}
  1240.                                       asMsgAlreadyExistsRuss,
  1241.                                   {$ELSE}
  1242.                                       asBlankStr,
  1243.                                   {$ENDIF}
  1244.                                   {$IFDEF GermanyVersion}
  1245.                                       asMsgAlreadyExistsGerm);
  1246.                                   {$ELSE}
  1247.                                       asBlankStr);
  1248.                                   {$ENDIF}
  1249.  
  1250.     gszMsgUserHeader             :   ARRAY [aMinLangNum..aMaxLangNum]  OF
  1251.                                        System.PChar =
  1252.                                   {$IFDEF EnglishVersion}
  1253.                                      (asMsgUserHeaderEngl,
  1254.                                   {$ELSE}
  1255.                                      (asBlankStr,
  1256.                                   {$ENDIF}
  1257.                                   {$IFDEF RussianVersion}
  1258.                                       asMsgUserHeaderRuss,
  1259.                                   {$ELSE}
  1260.                                       asBlankStr,
  1261.                                   {$ENDIF}
  1262.                                   {$IFDEF GermanyVersion}
  1263.                                       asMsgUserHeaderGerm);
  1264.                                   {$ELSE}
  1265.                                       asBlankStr);
  1266.                                   {$ENDIF}
  1267.  
  1268.     gszMsgPrintStart             :   ARRAY [aMinLangNum..aMaxLangNum]  OF
  1269.                                        System.PChar =
  1270.                                   {$IFDEF EnglishVersion}
  1271.                                      (asMsgPrintStartEngl,
  1272.                                   {$ELSE}
  1273.                                      (asBlankStr,
  1274.                                   {$ENDIF}
  1275.                                   {$IFDEF RussianVersion}
  1276.                                       asMsgPrintStartRuss,
  1277.                                   {$ELSE}
  1278.                                       asBlankStr,
  1279.                                   {$ENDIF}
  1280.                                   {$IFDEF GermanyVersion}
  1281.                                       asMsgPrintStartGerm);
  1282.                                   {$ELSE}
  1283.                                       asBlankStr);
  1284.                                   {$ENDIF}
  1285.  
  1286.     gszMsgTo                     :   ARRAY [aMinLangNum..aMaxLangNum]  OF
  1287.                                        System.PChar =
  1288.                                   {$IFDEF EnglishVersion}
  1289.                                      (asMsgToEngl,
  1290.                                   {$ELSE}
  1291.                                      (asBlankStr,
  1292.                                   {$ENDIF}
  1293.                                   {$IFDEF RussianVersion}
  1294.                                       asMsgToRuss,
  1295.                                   {$ELSE}
  1296.                                       asBlankStr,
  1297.                                   {$ENDIF}
  1298.                                   {$IFDEF GermanyVersion}
  1299.                                       asMsgToGerm);
  1300.                                   {$ELSE}
  1301.                                       asBlankStr);
  1302.                                   {$ENDIF}
  1303.  
  1304.     gszMsgUserAvailableKeys      :   ARRAY [aMinLangNum..aMaxLangNum]  OF
  1305.                                        System.PChar =
  1306.                                   {$IFDEF EnglishVersion}
  1307.                                      (asMsgUserAvailableKeysEngl,
  1308.                                   {$ELSE}
  1309.                                      (asBlankStr,
  1310.                                   {$ENDIF}
  1311.                                   {$IFDEF RussianVersion}
  1312.                                       asMsgUserAvailableKeysRuss,
  1313.                                   {$ELSE}
  1314.                                       asBlankStr,
  1315.                                   {$ENDIF}
  1316.                                   {$IFDEF GermanyVersion}
  1317.                                       asMsgUserAvailableKeysGerm);
  1318.                                   {$ELSE}
  1319.                                       asBlankStr);
  1320.                                   {$ENDIF}
  1321.  
  1322.     gszMsgPrintDone              :   ARRAY [aMinLangNum..aMaxLangNum]  OF
  1323.                                        System.PChar =
  1324.                                   {$IFDEF EnglishVersion}
  1325.                                      (asMsgPrintDoneEngl,
  1326.                                   {$ELSE}
  1327.                                      (asBlankStr,
  1328.                                   {$ENDIF}
  1329.                                   {$IFDEF RussianVersion}
  1330.                                       asMsgPrintDoneRuss,
  1331.                                   {$ELSE}
  1332.                                       asBlankStr,
  1333.                                   {$ENDIF}
  1334.                                   {$IFDEF GermanyVersion}
  1335.                                       asMsgPrintDoneGerm);
  1336.                                   {$ELSE}
  1337.                                       asBlankStr);
  1338.                                   {$ENDIF}
  1339.  
  1340.     gszMsgReadFail               :   ARRAY [aMinLangNum..aMaxLangNum]  OF
  1341.                                        System.PChar =
  1342.                                   {$IFDEF EnglishVersion}
  1343.                                      (asMsgReadFailEngl,
  1344.                                   {$ELSE}
  1345.                                      (asBlankStr,
  1346.                                   {$ENDIF}
  1347.                                   {$IFDEF RussianVersion}
  1348.                                       asMsgReadFailRuss,
  1349.                                   {$ELSE}
  1350.                                       asBlankStr,
  1351.                                   {$ENDIF}
  1352.                                   {$IFDEF GermanyVersion}
  1353.                                       asMsgReadFailGerm);
  1354.                                   {$ELSE}
  1355.                                       asBlankStr);
  1356.                                   {$ENDIF}
  1357.  
  1358.     gszMsgWriteFail              :   ARRAY [aMinLangNum..aMaxLangNum]  OF
  1359.                                        System.PChar =
  1360.                                   {$IFDEF EnglishVersion}
  1361.                                      (asMsgWriteFailEngl,
  1362.                                   {$ELSE}
  1363.                                      (asBlankStr,
  1364.                                   {$ENDIF}
  1365.                                   {$IFDEF RussianVersion}
  1366.                                       asMsgWriteFailRuss,
  1367.                                   {$ELSE}
  1368.                                       asBlankStr,
  1369.                                   {$ENDIF}
  1370.                                   {$IFDEF GermanyVersion}
  1371.                                       asMsgWriteFailGerm);
  1372.                                   {$ELSE}
  1373.                                       asBlankStr);
  1374.                                   {$ENDIF}
  1375.  
  1376.     gszMsgBadCtrlCode            :   ARRAY [aMinLangNum..aMaxLangNum]  OF
  1377.                                        System.PChar =
  1378.                                   {$IFDEF EnglishVersion}
  1379.                                      (asMsgBadCtrlCodeEngl,
  1380.                                   {$ELSE}
  1381.                                      (asBlankStr,
  1382.                                   {$ENDIF}
  1383.                                   {$IFDEF RussianVersion}
  1384.                                       asMsgBadCtrlCodeRuss,
  1385.                                   {$ELSE}
  1386.                                       asBlankStr,
  1387.                                   {$ENDIF}
  1388.                                   {$IFDEF GermanyVersion}
  1389.                                       asMsgBadCtrlCodeGerm);
  1390.                                   {$ELSE}
  1391.                                       asBlankStr);
  1392.                                   {$ENDIF}
  1393.  
  1394.     gszMsgLoadBinFile            :   ARRAY [aMinLangNum..aMaxLangNum]  OF
  1395.                                        System.PChar =
  1396.                                   {$IFDEF EnglishVersion}
  1397.                                      (asMsgLoadBinFileEngl,
  1398.                                   {$ELSE}
  1399.                                      (asBlankStr,
  1400.                                   {$ENDIF}
  1401.                                   {$IFDEF RussianVersion}
  1402.                                       asMsgLoadBinFileRuss,
  1403.                                   {$ELSE}
  1404.                                       asBlankStr,
  1405.                                   {$ENDIF}
  1406.                                   {$IFDEF GermanyVersion}
  1407.                                       asMsgLoadBinFileGerm);
  1408.                                   {$ELSE}
  1409.                                       asBlankStr);
  1410.                                   {$ENDIF}
  1411.  
  1412.     gszMsgLoadTransFile          :   ARRAY [aMinLangNum..aMaxLangNum]  OF
  1413.                                        System.PChar =
  1414.                                   {$IFDEF EnglishVersion}
  1415.                                      (asMsgLoadTransFileEngl,
  1416.                                   {$ELSE}
  1417.                                      (asBlankStr,
  1418.                                   {$ENDIF}
  1419.                                   {$IFDEF RussianVersion}
  1420.                                       asMsgLoadTransFileRuss,
  1421.                                   {$ELSE}
  1422.                                       asBlankStr,
  1423.                                   {$ENDIF}
  1424.                                   {$IFDEF GermanyVersion}
  1425.                                       asMsgLoadTransFileGerm);
  1426.                                   {$ELSE}
  1427.                                       asBlankStr);
  1428.                                   {$ENDIF}
  1429.  
  1430.     gszMsgScriptFile             :   ARRAY [aMinLangNum..aMaxLangNum]  OF
  1431.                                        System.PChar =
  1432.                                   {$IFDEF EnglishVersion}
  1433.                                      (asMsgScriptFileEngl,
  1434.                                   {$ELSE}
  1435.                                      (asBlankStr,
  1436.                                   {$ENDIF}
  1437.                                   {$IFDEF RussianVersion}
  1438.                                       asMsgScriptFileRuss,
  1439.                                   {$ELSE}
  1440.                                       asBlankStr,
  1441.                                   {$ENDIF}
  1442.                                   {$IFDEF GermanyVersion}
  1443.                                       asMsgScriptFileGerm);
  1444.                                   {$ELSE}
  1445.                                       asBlankStr);
  1446.                                   {$ENDIF}
  1447.  
  1448.     gszMsgAM                     :   ARRAY [aMinLangNum..aMaxLangNum]  OF
  1449.                                        System.PChar =
  1450.                                   {$IFDEF EnglishVersion}
  1451.                                      (asMsgAMEngl,
  1452.                                   {$ELSE}
  1453.                                      (asBlankStr,
  1454.                                   {$ENDIF}
  1455.                                   {$IFDEF RussianVersion}
  1456.                                       asMsgAMRuss,
  1457.                                   {$ELSE}
  1458.                                       asBlankStr,
  1459.                                   {$ENDIF}
  1460.                                   {$IFDEF GermanyVersion}
  1461.                                       asMsgAMGerm);
  1462.                                   {$ELSE}
  1463.                                       asBlankStr);
  1464.                                   {$ENDIF}
  1465.  
  1466.     gszMsgPM                     :   ARRAY [aMinLangNum..aMaxLangNum]  OF
  1467.                                        System.PChar =
  1468.                                   {$IFDEF EnglishVersion}
  1469.                                      (asMsgPMEngl,
  1470.                                   {$ELSE}
  1471.                                      (asBlankStr,
  1472.                                   {$ENDIF}
  1473.                                   {$IFDEF RussianVersion}
  1474.                                       asMsgPMRuss,
  1475.                                   {$ELSE}
  1476.                                       asBlankStr,
  1477.                                   {$ENDIF}
  1478.                                   {$IFDEF GermanyVersion}
  1479.                                       asMsgPMGerm);
  1480.                                   {$ELSE}
  1481.                                       asBlankStr);
  1482.                                   {$ENDIF}
  1483.  
  1484.  
  1485.   { languages support }
  1486.     gszEnglishLanguage         :   ARRAY [aMinLangNum..aMaxLangNum]  OF
  1487.                                        System.PChar =
  1488.                                   {$IFDEF EnglishVersion}
  1489.                                      (asEnglishLanguageEngl,
  1490.                                   {$ELSE}
  1491.                                      (asBlankStr,
  1492.                                   {$ENDIF}
  1493.                                   {$IFDEF RussianVersion}
  1494.                                       asEnglishLanguageRuss,
  1495.                                   {$ELSE}
  1496.                                       asBlankStr,
  1497.                                   {$ENDIF}
  1498.                                   {$IFDEF GermanyVersion}
  1499.                                       asEnglishLanguageGerm);
  1500.                                   {$ELSE}
  1501.                                       asBlankStr);
  1502.                                   {$ENDIF}
  1503.  
  1504.     gszRussianLanguage        :   ARRAY [aMinLangNum..aMaxLangNum]  OF
  1505.                                        System.PChar =
  1506.                                   {$IFDEF EnglishVersion}
  1507.                                      (asRussianLanguageEngl,
  1508.                                   {$ELSE}
  1509.                                      (asBlankStr,
  1510.                                   {$ENDIF}
  1511.                                   {$IFDEF RussianVersion}
  1512.                                       asRussianLanguageRuss,
  1513.                                   {$ELSE}
  1514.                                       asBlankStr,
  1515.                                   {$ENDIF}
  1516.                                   {$IFDEF GermanyVersion}
  1517.                                       asRussianLanguageGerm);
  1518.                                   {$ELSE}
  1519.                                       asBlankStr);
  1520.                                   {$ENDIF}
  1521.  
  1522.     gszGermanyLanguage        :   ARRAY [aMinLangNum..aMaxLangNum]  OF
  1523.                                        System.PChar =
  1524.                                   {$IFDEF EnglishVersion}
  1525.                                      (asGermanyLanguageEngl,
  1526.                                   {$ELSE}
  1527.                                      (asBlankStr,
  1528.                                   {$ENDIF}
  1529.                                   {$IFDEF RussianVersion}
  1530.                                       asGermanyLanguageRuss,
  1531.                                   {$ELSE}
  1532.                                       asBlankStr,
  1533.                                   {$ENDIF}
  1534.                                   {$IFDEF GermanyVersion}
  1535.                                       asGermanyLanguageGerm);
  1536.                                   {$ELSE}
  1537.                                       asBlankStr);
  1538.                                   {$ENDIF}
  1539.  
  1540.  
  1541.  
  1542.   { user possible responses }
  1543.     gchUserWant                :   ARRAY [aMinLangNum..aMaxLangNum]  OF  System.Char =
  1544.                                   {$IFDEF EnglishVersion}
  1545.                                      (achUserWantEngl,
  1546.                                   {$ELSE}
  1547.                                      (achZero,
  1548.                                   {$ENDIF}
  1549.                                   {$IFDEF RussianVersion}
  1550.                                       achUserWantRuss,
  1551.                                   {$ELSE}
  1552.                                       achZero,
  1553.                                   {$ENDIF}
  1554.                                   {$IFDEF GermanyVersion}
  1555.                                       achUserWantGerm);
  1556.                                   {$ELSE}
  1557.                                       achZero);
  1558.                                   {$ENDIF}
  1559.  
  1560.     gchUserDontWant            :   ARRAY [aMinLangNum..aMaxLangNum]  OF  System.Char =
  1561.                                   {$IFDEF EnglishVersion}
  1562.                                      (achUserDontWantEngl,
  1563.                                   {$ELSE}
  1564.                                      (achZero,
  1565.                                   {$ENDIF}
  1566.                                   {$IFDEF RussianVersion}
  1567.                                       achUserDontWantRuss,
  1568.                                   {$ELSE}
  1569.                                       achZero,
  1570.                                   {$ENDIF}
  1571.                                   {$IFDEF GermanyVersion}
  1572.                                       achUserDontWantGerm);
  1573.                                   {$ELSE}
  1574.                                       achZero);
  1575.                                   {$ENDIF}
  1576.  
  1577.   { user help }
  1578.     gszMsgHelp00A                 :   ARRAY [aMinLangNum..aMaxLangNum]  OF
  1579.                                         System.PChar =
  1580.                                   {$IFDEF EnglishVersion}
  1581.                                      (asMsgHelp00A_Engl,
  1582.                                   {$ELSE}
  1583.                                      (asBlankStr,
  1584.                                   {$ENDIF}
  1585.                                   {$IFDEF RussianVersion}
  1586.                                       asMsgHelp00A_Russ,
  1587.                                   {$ELSE}
  1588.                                       asBlankStr,
  1589.                                   {$ENDIF}
  1590.                                   {$IFDEF GermanyVersion}
  1591.                                       asMsgHelp00A_Germ);
  1592.                                   {$ELSE}
  1593.                                       asBlankStr);
  1594.                                   {$ENDIF}
  1595.  
  1596.     gszMsgHelp01A                 :   ARRAY [aMinLangNum..aMaxLangNum]  OF
  1597.                                         System.PChar =
  1598.                                   {$IFDEF EnglishVersion}
  1599.                                      (asMsgHelp01A_Engl,
  1600.                                   {$ELSE}
  1601.                                      (asBlankStr,
  1602.                                   {$ENDIF}
  1603.                                   {$IFDEF RussianVersion}
  1604.                                       asMsgHelp01A_Russ,
  1605.                                   {$ELSE}
  1606.                                       asBlankStr,
  1607.                                   {$ENDIF}
  1608.                                   {$IFDEF GermanyVersion}
  1609.                                       asMsgHelp01A_Germ);
  1610.                                   {$ELSE}
  1611.                                       asBlankStr);
  1612.                                   {$ENDIF}
  1613.  
  1614.     gszMsgHelp01B                 :   ARRAY [aMinLangNum..aMaxLangNum]  OF
  1615.                                         System.PChar =
  1616.                                   {$IFDEF EnglishVersion}
  1617.                                      (asMsgHelp01B_Engl,
  1618.                                   {$ELSE}
  1619.                                      (asBlankStr,
  1620.                                   {$ENDIF}
  1621.                                   {$IFDEF RussianVersion}
  1622.                                       asMsgHelp01B_Russ,
  1623.                                   {$ELSE}
  1624.                                       asBlankStr,
  1625.                                   {$ENDIF}
  1626.                                   {$IFDEF GermanyVersion}
  1627.                                       asMsgHelp01B_Germ);
  1628.                                   {$ELSE}
  1629.                                       asBlankStr);
  1630.                                   {$ENDIF}
  1631.  
  1632.     gszMsgHelp02A                 :   ARRAY [aMinLangNum..aMaxLangNum]  OF
  1633.                                         System.PChar =
  1634.                                   {$IFDEF EnglishVersion}
  1635.                                      (asMsgHelp02A_Engl,
  1636.                                   {$ELSE}
  1637.                                      (asBlankStr,
  1638.                                   {$ENDIF}
  1639.                                   {$IFDEF RussianVersion}
  1640.                                       asMsgHelp02A_Russ,
  1641.                                   {$ELSE}
  1642.                                       asBlankStr,
  1643.                                   {$ENDIF}
  1644.                                   {$IFDEF GermanyVersion}
  1645.                                       asMsgHelp02A_Germ);
  1646.                                   {$ELSE}
  1647.                                       asBlankStr);
  1648.                                   {$ENDIF}
  1649.  
  1650.     gszMsgHelp03A                 :   ARRAY [aMinLangNum..aMaxLangNum]  OF
  1651.                                         System.PChar =
  1652.                                   {$IFDEF EnglishVersion}
  1653.                                      (asMsgHelp03A_Engl,
  1654.                                   {$ELSE}
  1655.                                      (asBlankStr,
  1656.                                   {$ENDIF}
  1657.                                   {$IFDEF RussianVersion}
  1658.                                       asMsgHelp03A_Russ,
  1659.                                   {$ELSE}
  1660.                                       asBlankStr,
  1661.                                   {$ENDIF}
  1662.                                   {$IFDEF GermanyVersion}
  1663.                                       asMsgHelp03A_Germ);
  1664.                                   {$ELSE}
  1665.                                       asBlankStr);
  1666.                                   {$ENDIF}
  1667.  
  1668.     gszMsgHelp04A                 :   ARRAY [aMinLangNum..aMaxLangNum]  OF
  1669.                                         System.PChar =
  1670.                                   {$IFDEF EnglishVersion}
  1671.                                      (asMsgHelp04A_Engl,
  1672.                                   {$ELSE}
  1673.                                      (asBlankStr,
  1674.                                   {$ENDIF}
  1675.                                   {$IFDEF RussianVersion}
  1676.                                       asMsgHelp04A_Russ,
  1677.                                   {$ELSE}
  1678.                                       asBlankStr,
  1679.                                   {$ENDIF}
  1680.                                   {$IFDEF GermanyVersion}
  1681.                                       asMsgHelp04A_Germ);
  1682.                                   {$ELSE}
  1683.                                       asBlankStr);
  1684.                                   {$ENDIF}
  1685.  
  1686.     gszMsgHelp05A                 :   ARRAY [aMinLangNum..aMaxLangNum]  OF
  1687.                                         System.PChar =
  1688.                                   {$IFDEF EnglishVersion}
  1689.                                      (asMsgHelp05A_Engl,
  1690.                                   {$ELSE}
  1691.                                      (asBlankStr,
  1692.                                   {$ENDIF}
  1693.                                   {$IFDEF RussianVersion}
  1694.                                       asMsgHelp05A_Russ,
  1695.                                   {$ELSE}
  1696.                                       asBlankStr,
  1697.                                   {$ENDIF}
  1698.                                   {$IFDEF GermanyVersion}
  1699.                                       asMsgHelp05A_Germ);
  1700.                                   {$ELSE}
  1701.                                       asBlankStr);
  1702.                                   {$ENDIF}
  1703.  
  1704.     gszMsgHelp06A                 :   ARRAY [aMinLangNum..aMaxLangNum]  OF
  1705.                                         System.PChar =
  1706.                                   {$IFDEF EnglishVersion}
  1707.                                      (asMsgHelp06A_Engl,
  1708.                                   {$ELSE}
  1709.                                      (asBlankStr,
  1710.                                   {$ENDIF}
  1711.                                   {$IFDEF RussianVersion}
  1712.                                       asMsgHelp06A_Russ,
  1713.                                   {$ELSE}
  1714.                                       asBlankStr,
  1715.                                   {$ENDIF}
  1716.                                   {$IFDEF GermanyVersion}
  1717.                                       asMsgHelp06A_Germ);
  1718.                                   {$ELSE}
  1719.                                       asBlankStr);
  1720.                                   {$ENDIF}
  1721.  
  1722.     gszMsgHelp07A                 :   ARRAY [aMinLangNum..aMaxLangNum]  OF
  1723.                                         System.PChar =
  1724.                                   {$IFDEF EnglishVersion}
  1725.                                      (asMsgHelp07A_Engl,
  1726.                                   {$ELSE}
  1727.                                      (asBlankStr,
  1728.                                   {$ENDIF}
  1729.                                   {$IFDEF RussianVersion}
  1730.                                       asMsgHelp07A_Russ,
  1731.                                   {$ELSE}
  1732.                                       asBlankStr,
  1733.                                   {$ENDIF}
  1734.                                   {$IFDEF GermanyVersion}
  1735.                                       asMsgHelp07A_Germ);
  1736.                                   {$ELSE}
  1737.                                       asBlankStr);
  1738.                                   {$ENDIF}
  1739.  
  1740.     gszMsgHelp08A                 :   ARRAY [aMinLangNum..aMaxLangNum]  OF
  1741.                                         System.PChar =
  1742.                                   {$IFDEF EnglishVersion}
  1743.                                      (asMsgHelp08A_Engl,
  1744.                                   {$ELSE}
  1745.                                      (asBlankStr,
  1746.                                   {$ENDIF}
  1747.                                   {$IFDEF RussianVersion}
  1748.                                       asMsgHelp08A_Russ,
  1749.                                   {$ELSE}
  1750.                                       asBlankStr,
  1751.                                   {$ENDIF}
  1752.                                   {$IFDEF GermanyVersion}
  1753.                                       asMsgHelp08A_Germ);
  1754.                                   {$ELSE}
  1755.                                       asBlankStr);
  1756.                                   {$ENDIF}
  1757.  
  1758.     gszMsgHelp09A                 :   ARRAY [aMinLangNum..aMaxLangNum]  OF
  1759.                                         System.PChar =
  1760.                                   {$IFDEF EnglishVersion}
  1761.                                      (asMsgHelp09A_Engl,
  1762.                                   {$ELSE}
  1763.                                      (asBlankStr,
  1764.                                   {$ENDIF}
  1765.                                   {$IFDEF RussianVersion}
  1766.                                       asMsgHelp09A_Russ,
  1767.                                   {$ELSE}
  1768.                                       asBlankStr,
  1769.                                   {$ENDIF}
  1770.                                   {$IFDEF GermanyVersion}
  1771.                                       asMsgHelp09A_Germ);
  1772.                                   {$ELSE}
  1773.                                       asBlankStr);
  1774.                                   {$ENDIF}
  1775.  
  1776.     gszMsgHelp10A                 :   ARRAY [aMinLangNum..aMaxLangNum]  OF
  1777.                                         System.PChar =
  1778.                                   {$IFDEF EnglishVersion}
  1779.                                      (asMsgHelp10A_Engl,
  1780.                                   {$ELSE}
  1781.                                      (asBlankStr,
  1782.                                   {$ENDIF}
  1783.                                   {$IFDEF RussianVersion}
  1784.                                       asMsgHelp10A_Russ,
  1785.                                   {$ELSE}
  1786.                                       asBlankStr,
  1787.                                   {$ENDIF}
  1788.                                   {$IFDEF GermanyVersion}
  1789.                                       asMsgHelp10A_Germ);
  1790.                                   {$ELSE}
  1791.                                       asBlankStr);
  1792.                                   {$ENDIF}
  1793.  
  1794.     gszMsgHelp11A                 :   ARRAY [aMinLangNum..aMaxLangNum]  OF
  1795.                                         System.PChar =
  1796.                                   {$IFDEF EnglishVersion}
  1797.                                      (asMsgHelp11A_Engl,
  1798.                                   {$ELSE}
  1799.                                      (asBlankStr,
  1800.                                   {$ENDIF}
  1801.                                   {$IFDEF RussianVersion}
  1802.                                       asMsgHelp11A_Russ,
  1803.                                   {$ELSE}
  1804.                                       asBlankStr,
  1805.                                   {$ENDIF}
  1806.                                   {$IFDEF GermanyVersion}
  1807.                                       asMsgHelp11A_Germ);
  1808.                                   {$ELSE}
  1809.                                       asBlankStr);
  1810.                                   {$ENDIF}
  1811.  
  1812.     gszMsgHelp12A                 :   ARRAY [aMinLangNum..aMaxLangNum]  OF
  1813.                                         System.PChar =
  1814.                                   {$IFDEF EnglishVersion}
  1815.                                      (asMsgHelp12A_Engl,
  1816.                                   {$ELSE}
  1817.                                      (asBlankStr,
  1818.                                   {$ENDIF}
  1819.                                   {$IFDEF RussianVersion}
  1820.                                       asMsgHelp12A_Russ,
  1821.                                   {$ELSE}
  1822.                                       asBlankStr,
  1823.                                   {$ENDIF}
  1824.                                   {$IFDEF GermanyVersion}
  1825.                                       asMsgHelp12A_Germ);
  1826.                                   {$ELSE}
  1827.                                       asBlankStr);
  1828.                                   {$ENDIF}
  1829.  
  1830.     gszMsgHelp13A                 :   ARRAY [aMinLangNum..aMaxLangNum]  OF
  1831.                                         System.PChar =
  1832.                                   {$IFDEF EnglishVersion}
  1833.                                      (asMsgHelp13A_Engl,
  1834.                                   {$ELSE}
  1835.                                      (asBlankStr,
  1836.                                   {$ENDIF}
  1837.                                   {$IFDEF RussianVersion}
  1838.                                       asMsgHelp13A_Russ,
  1839.                                   {$ELSE}
  1840.                                       asBlankStr,
  1841.                                   {$ENDIF}
  1842.                                   {$IFDEF GermanyVersion}
  1843.                                       asMsgHelp13A_Germ);
  1844.                                   {$ELSE}
  1845.                                       asBlankStr);
  1846.                                   {$ENDIF}
  1847.  
  1848.     gszMsgHelp14A                 :   ARRAY [aMinLangNum..aMaxLangNum]  OF
  1849.                                         System.PChar =
  1850.                                   {$IFDEF EnglishVersion}
  1851.                                      (asMsgHelp14A_Engl,
  1852.                                   {$ELSE}
  1853.                                      (asBlankStr,
  1854.                                   {$ENDIF}
  1855.                                   {$IFDEF RussianVersion}
  1856.                                       asMsgHelp14A_Russ,
  1857.                                   {$ELSE}
  1858.                                       asBlankStr,
  1859.                                   {$ENDIF}
  1860.                                   {$IFDEF GermanyVersion}
  1861.                                       asMsgHelp14A_Germ);
  1862.                                   {$ELSE}
  1863.                                       asBlankStr);
  1864.                                   {$ENDIF}
  1865.  
  1866.     gszMsgHelp15A                 :   ARRAY [aMinLangNum..aMaxLangNum]  OF
  1867.                                         System.PChar =
  1868.                                   {$IFDEF EnglishVersion}
  1869.                                      (asMsgHelp15A_Engl,
  1870.                                   {$ELSE}
  1871.                                      (asBlankStr,
  1872.                                   {$ENDIF}
  1873.                                   {$IFDEF RussianVersion}
  1874.                                       asMsgHelp15A_Russ,
  1875.                                   {$ELSE}
  1876.                                       asBlankStr,
  1877.                                   {$ENDIF}
  1878.                                   {$IFDEF GermanyVersion}
  1879.                                       asMsgHelp15A_Germ);
  1880.                                   {$ELSE}
  1881.                                       asBlankStr);
  1882.                                   {$ENDIF}
  1883.  
  1884.     gszMsgHelp16A                 :   ARRAY [aMinLangNum..aMaxLangNum]  OF
  1885.                                         System.PChar =
  1886.                                   {$IFDEF EnglishVersion}
  1887.                                      (asMsgHelp16A_Engl,
  1888.                                   {$ELSE}
  1889.                                      (asBlankStr,
  1890.                                   {$ENDIF}
  1891.                                   {$IFDEF RussianVersion}
  1892.                                       asMsgHelp16A_Russ,
  1893.                                   {$ELSE}
  1894.                                       asBlankStr,
  1895.                                   {$ENDIF}
  1896.                                   {$IFDEF GermanyVersion}
  1897.                                       asMsgHelp16A_Germ);
  1898.                                   {$ELSE}
  1899.                                       asBlankStr);
  1900.                                   {$ENDIF}
  1901.  
  1902.     gszMsgHelp17A                 :   ARRAY [aMinLangNum..aMaxLangNum]  OF
  1903.                                         System.PChar =
  1904.                                   {$IFDEF EnglishVersion}
  1905.                                      (asMsgHelp17A_Engl,
  1906.                                   {$ELSE}
  1907.                                      (asBlankStr,
  1908.                                   {$ENDIF}
  1909.                                   {$IFDEF RussianVersion}
  1910.                                       asMsgHelp17A_Russ,
  1911.                                   {$ELSE}
  1912.                                       asBlankStr,
  1913.                                   {$ENDIF}
  1914.                                   {$IFDEF GermanyVersion}
  1915.                                       asMsgHelp17A_Germ);
  1916.                                   {$ELSE}
  1917.                                       asBlankStr);
  1918.                                   {$ENDIF}
  1919.  
  1920.     gszMsgHelp17B                 :   ARRAY [aMinLangNum..aMaxLangNum]  OF
  1921.                                         System.PChar =
  1922.                                   {$IFDEF EnglishVersion}
  1923.                                      (asMsgHelp17B_Engl,
  1924.                                   {$ELSE}
  1925.                                      (asBlankStr,
  1926.                                   {$ENDIF}
  1927.                                   {$IFDEF RussianVersion}
  1928.                                       asMsgHelp17B_Russ,
  1929.                                   {$ELSE}
  1930.                                       asBlankStr,
  1931.                                   {$ENDIF}
  1932.                                   {$IFDEF GermanyVersion}
  1933.                                       asMsgHelp17B_Germ);
  1934.                                   {$ELSE}
  1935.                                       asBlankStr);
  1936.                                   {$ENDIF}
  1937.  
  1938.     gszMsgHelp18A                 :   ARRAY [aMinLangNum..aMaxLangNum]  OF
  1939.                                         System.PChar =
  1940.                                   {$IFDEF EnglishVersion}
  1941.                                      (asMsgHelp18A_Engl,
  1942.                                   {$ELSE}
  1943.                                      (asBlankStr,
  1944.                                   {$ENDIF}
  1945.                                   {$IFDEF RussianVersion}
  1946.                                       asMsgHelp18A_Russ,
  1947.                                   {$ELSE}
  1948.                                       asBlankStr,
  1949.                                   {$ENDIF}
  1950.                                   {$IFDEF GermanyVersion}
  1951.                                       asMsgHelp18A_Germ);
  1952.                                   {$ELSE}
  1953.                                       asBlankStr);
  1954.                                   {$ENDIF}
  1955.  
  1956.     gszMsgHelp19A                 :   ARRAY [aMinLangNum..aMaxLangNum]  OF
  1957.                                         System.PChar =
  1958.                                   {$IFDEF EnglishVersion}
  1959.                                      (asMsgHelp19A_Engl,
  1960.                                   {$ELSE}
  1961.                                      (asBlankStr,
  1962.                                   {$ENDIF}
  1963.                                   {$IFDEF RussianVersion}
  1964.                                       asMsgHelp19A_Russ,
  1965.                                   {$ELSE}
  1966.                                       asBlankStr,
  1967.                                   {$ENDIF}
  1968.                                   {$IFDEF GermanyVersion}
  1969.                                       asMsgHelp19A_Germ);
  1970.                                   {$ELSE}
  1971.                                       asBlankStr);
  1972.                                   {$ENDIF}
  1973.  
  1974.     gszMsgHelp19B                 :   ARRAY [aMinLangNum..aMaxLangNum]  OF
  1975.                                         System.PChar =
  1976.                                   {$IFDEF EnglishVersion}
  1977.                                      (asMsgHelp19B_Engl,
  1978.                                   {$ELSE}
  1979.                                      (asBlankStr,
  1980.                                   {$ENDIF}
  1981.                                   {$IFDEF RussianVersion}
  1982.                                       asMsgHelp19B_Russ,
  1983.                                   {$ELSE}
  1984.                                       asBlankStr,
  1985.                                   {$ENDIF}
  1986.                                   {$IFDEF GermanyVersion}
  1987.                                       asMsgHelp19B_Germ);
  1988.                                   {$ELSE}
  1989.                                       asBlankStr);
  1990.                                   {$ENDIF}
  1991.  
  1992.     gszMsgHelp20A                 :   ARRAY [aMinLangNum..aMaxLangNum]  OF
  1993.                                         System.PChar =
  1994.                                   {$IFDEF EnglishVersion}
  1995.                                      (asMsgHelp20A_Engl,
  1996.                                   {$ELSE}
  1997.                                      (asBlankStr,
  1998.                                   {$ENDIF}
  1999.                                   {$IFDEF RussianVersion}
  2000.                                       asMsgHelp20A_Russ,
  2001.                                   {$ELSE}
  2002.                                       asBlankStr,
  2003.                                   {$ENDIF}
  2004.                                   {$IFDEF GermanyVersion}
  2005.                                       asMsgHelp20A_Germ);
  2006.                                   {$ELSE}
  2007.                                       asBlankStr);
  2008.                                   {$ENDIF}
  2009.  
  2010.     gszMsgHelp20B                 :   ARRAY [aMinLangNum..aMaxLangNum]  OF
  2011.                                         System.PChar =
  2012.                                   {$IFDEF EnglishVersion}
  2013.                                      (asMsgHelp20B_Engl,
  2014.                                   {$ELSE}
  2015.                                      (asBlankStr,
  2016.                                   {$ENDIF}
  2017.                                   {$IFDEF RussianVersion}
  2018.                                       asMsgHelp20B_Russ,
  2019.                                   {$ELSE}
  2020.                                       asBlankStr,
  2021.                                   {$ENDIF}
  2022.                                   {$IFDEF GermanyVersion}
  2023.                                       asMsgHelp20B_Germ);
  2024.                                   {$ELSE}
  2025.                                       asBlankStr);
  2026.                                   {$ENDIF}
  2027.  
  2028.     gszMsgHelp21A                 :   ARRAY [aMinLangNum..aMaxLangNum]  OF
  2029.                                         System.PChar =
  2030.                                   {$IFDEF EnglishVersion}
  2031.                                      (asMsgHelp21A_Engl,
  2032.                                   {$ELSE}
  2033.                                      (asBlankStr,
  2034.                                   {$ENDIF}
  2035.                                   {$IFDEF RussianVersion}
  2036.                                       asMsgHelp21A_Russ,
  2037.                                   {$ELSE}
  2038.                                       asBlankStr,
  2039.                                   {$ENDIF}
  2040.                                   {$IFDEF GermanyVersion}
  2041.                                       asMsgHelp21A_Germ);
  2042.                                   {$ELSE}
  2043.                                       asBlankStr);
  2044.                                   {$ENDIF}
  2045.  
  2046.     gszMsgHelp21B                 :   ARRAY [aMinLangNum..aMaxLangNum]  OF
  2047.                                         System.PChar =
  2048.                                   {$IFDEF EnglishVersion}
  2049.                                      (asMsgHelp21B_Engl,
  2050.                                   {$ELSE}
  2051.                                      (asBlankStr,
  2052.                                   {$ENDIF}
  2053.                                   {$IFDEF RussianVersion}
  2054.                                       asMsgHelp21B_Russ,
  2055.                                   {$ELSE}
  2056.                                       asBlankStr,
  2057.                                   {$ENDIF}
  2058.                                   {$IFDEF GermanyVersion}
  2059.                                       asMsgHelp21B_Germ);
  2060.                                   {$ELSE}
  2061.                                       asBlankStr);
  2062.                                   {$ENDIF}
  2063.  
  2064.     gszMsgHelp22A                 :   ARRAY [aMinLangNum..aMaxLangNum]  OF
  2065.                                         System.PChar =
  2066.                                   {$IFDEF EnglishVersion}
  2067.                                      (asMsgHelp22A_Engl,
  2068.                                   {$ELSE}
  2069.                                      (asBlankStr,
  2070.                                   {$ENDIF}
  2071.                                   {$IFDEF RussianVersion}
  2072.                                       asMsgHelp22A_Russ,
  2073.                                   {$ELSE}
  2074.                                       asBlankStr,
  2075.                                   {$ENDIF}
  2076.                                   {$IFDEF GermanyVersion}
  2077.                                       asMsgHelp22A_Germ);
  2078.                                   {$ELSE}
  2079.                                       asBlankStr);
  2080.                                   {$ENDIF}
  2081.  
  2082.     gszMsgHelp22B                 :   ARRAY [aMinLangNum..aMaxLangNum]  OF
  2083.                                         System.PChar =
  2084.                                   {$IFDEF EnglishVersion}
  2085.                                      (asMsgHelp22B_Engl,
  2086.                                   {$ELSE}
  2087.                                      (asBlankStr,
  2088.                                   {$ENDIF}
  2089.                                   {$IFDEF RussianVersion}
  2090.                                       asMsgHelp22B_Russ,
  2091.                                   {$ELSE}
  2092.                                       asBlankStr,
  2093.                                   {$ENDIF}
  2094.                                   {$IFDEF GermanyVersion}
  2095.                                       asMsgHelp22B_Germ);
  2096.                                   {$ELSE}
  2097.                                       asBlankStr);
  2098.                                   {$ENDIF}
  2099.  
  2100.     gszMsgHelp23A                 :   ARRAY [aMinLangNum..aMaxLangNum]  OF
  2101.                                         System.PChar =
  2102.                                   {$IFDEF EnglishVersion}
  2103.                                      (asMsgHelp23A_Engl,
  2104.                                   {$ELSE}
  2105.                                      (asBlankStr,
  2106.                                   {$ENDIF}
  2107.                                   {$IFDEF RussianVersion}
  2108.                                       asMsgHelp23A_Russ,
  2109.                                   {$ELSE}
  2110.                                       asBlankStr,
  2111.                                   {$ENDIF}
  2112.                                   {$IFDEF GermanyVersion}
  2113.                                       asMsgHelp23A_Germ);
  2114.                                   {$ELSE}
  2115.                                       asBlankStr);
  2116.                                   {$ENDIF}
  2117.  
  2118.     gszMsgHelp24A                 :   ARRAY [aMinLangNum..aMaxLangNum]  OF
  2119.                                         System.PChar =
  2120.                                   {$IFDEF EnglishVersion}
  2121.                                      (asMsgHelp24A_Engl,
  2122.                                   {$ELSE}
  2123.                                      (asBlankStr,
  2124.                                   {$ENDIF}
  2125.                                   {$IFDEF RussianVersion}
  2126.                                       asMsgHelp24A_Russ,
  2127.                                   {$ELSE}
  2128.                                       asBlankStr,
  2129.                                   {$ENDIF}
  2130.                                   {$IFDEF GermanyVersion}
  2131.                                       asMsgHelp24A_Germ);
  2132.                                   {$ELSE}
  2133.                                       asBlankStr);
  2134.                                   {$ENDIF}
  2135.  
  2136.     gszMsgHelp25A                 :   ARRAY [aMinLangNum..aMaxLangNum]  OF
  2137.                                         System.PChar =
  2138.                                   {$IFDEF EnglishVersion}
  2139.                                      (asMsgHelp25A_Engl,
  2140.                                   {$ELSE}
  2141.                                      (asBlankStr,
  2142.                                   {$ENDIF}
  2143.                                   {$IFDEF RussianVersion}
  2144.                                       asMsgHelp25A_Russ,
  2145.                                   {$ELSE}
  2146.                                       asBlankStr,
  2147.                                   {$ENDIF}
  2148.                                   {$IFDEF GermanyVersion}
  2149.                                       asMsgHelp25A_Germ);
  2150.                                   {$ELSE}
  2151.                                       asBlankStr);
  2152.                                   {$ENDIF}
  2153.  
  2154.     gszMsgHelp26A                 :   ARRAY [aMinLangNum..aMaxLangNum]  OF
  2155.                                         System.PChar =
  2156.                                   {$IFDEF EnglishVersion}
  2157.                                      (asMsgHelp26A_Engl,
  2158.                                   {$ELSE}
  2159.                                      (asBlankStr,
  2160.                                   {$ENDIF}
  2161.                                   {$IFDEF RussianVersion}
  2162.                                       asMsgHelp26A_Russ,
  2163.                                   {$ELSE}
  2164.                                       asBlankStr,
  2165.                                   {$ENDIF}
  2166.                                   {$IFDEF GermanyVersion}
  2167.                                       asMsgHelp26A_Germ);
  2168.                                   {$ELSE}
  2169.                                       asBlankStr);
  2170.                                   {$ENDIF}
  2171.  
  2172.     gszMsgHelp26B                 :   ARRAY [aMinLangNum..aMaxLangNum]  OF
  2173.                                         System.PChar =
  2174.                                   {$IFDEF EnglishVersion}
  2175.                                      (asMsgHelp26B_Engl,
  2176.                                   {$ELSE}
  2177.                                      (asBlankStr,
  2178.                                   {$ENDIF}
  2179.                                   {$IFDEF RussianVersion}
  2180.                                       asMsgHelp26B_Russ,
  2181.                                   {$ELSE}
  2182.                                       asBlankStr,
  2183.                                   {$ENDIF}
  2184.                                   {$IFDEF GermanyVersion}
  2185.                                       asMsgHelp26B_Germ);
  2186.                                   {$ELSE}
  2187.                                       asBlankStr);
  2188.                                   {$ENDIF}
  2189.  
  2190.     gszMsgHelp27A                 :   ARRAY [aMinLangNum..aMaxLangNum]  OF
  2191.                                         System.PChar =
  2192.                                   {$IFDEF EnglishVersion}
  2193.                                      (asMsgHelp27A_Engl,
  2194.                                   {$ELSE}
  2195.                                      (asBlankStr,
  2196.                                   {$ENDIF}
  2197.                                   {$IFDEF RussianVersion}
  2198.                                       asMsgHelp27A_Russ,
  2199.                                   {$ELSE}
  2200.                                       asBlankStr,
  2201.                                   {$ENDIF}
  2202.                                   {$IFDEF GermanyVersion}
  2203.                                       asMsgHelp27A_Germ);
  2204.                                   {$ELSE}
  2205.                                       asBlankStr);
  2206.                                   {$ENDIF}
  2207.  
  2208.     gszMsgHelp27B                 :   ARRAY [aMinLangNum..aMaxLangNum]  OF
  2209.                                         System.PChar =
  2210.                                   {$IFDEF EnglishVersion}
  2211.                                      (asMsgHelp27B_Engl,
  2212.                                   {$ELSE}
  2213.                                      (asBlankStr,
  2214.                                   {$ENDIF}
  2215.                                   {$IFDEF RussianVersion}
  2216.                                       asMsgHelp27B_Russ,
  2217.                                   {$ELSE}
  2218.                                       asBlankStr,
  2219.                                   {$ENDIF}
  2220.                                   {$IFDEF GermanyVersion}
  2221.                                       asMsgHelp27B_Germ);
  2222.                                   {$ELSE}
  2223.                                       asBlankStr);
  2224.                                   {$ENDIF}
  2225.  
  2226.     gszMsgHelp28A                 :   ARRAY [aMinLangNum..aMaxLangNum]  OF
  2227.                                         System.PChar =
  2228.                                   {$IFDEF EnglishVersion}
  2229.                                      (asMsgHelp28A_Engl,
  2230.                                   {$ELSE}
  2231.                                      (asBlankStr,
  2232.                                   {$ENDIF}
  2233.                                   {$IFDEF RussianVersion}
  2234.                                       asMsgHelp28A_Russ,
  2235.                                   {$ELSE}
  2236.                                       asBlankStr,
  2237.                                   {$ENDIF}
  2238.                                   {$IFDEF GermanyVersion}
  2239.                                       asMsgHelp28A_Germ);
  2240.                                   {$ELSE}
  2241.                                       asBlankStr);
  2242.                                   {$ENDIF}
  2243.  
  2244.     gszMsgHelp29A                 :   ARRAY [aMinLangNum..aMaxLangNum]  OF
  2245.                                         System.PChar =
  2246.                                   {$IFDEF EnglishVersion}
  2247.                                      (asMsgHelp29A_Engl,
  2248.                                   {$ELSE}
  2249.                                      (asBlankStr,
  2250.                                   {$ENDIF}
  2251.                                   {$IFDEF RussianVersion}
  2252.                                       asMsgHelp29A_Russ,
  2253.                                   {$ELSE}
  2254.                                       asBlankStr,
  2255.                                   {$ENDIF}
  2256.                                   {$IFDEF GermanyVersion}
  2257.                                       asMsgHelp29A_Germ);
  2258.                                   {$ELSE}
  2259.                                       asBlankStr);
  2260.                                   {$ENDIF}
  2261.  
  2262.     gszMsgHelp30A                 :   ARRAY [aMinLangNum..aMaxLangNum]  OF
  2263.                                         System.PChar =
  2264.                                   {$IFDEF EnglishVersion}
  2265.                                      (asMsgHelp30A_Engl,
  2266.                                   {$ELSE}
  2267.                                      (asBlankStr,
  2268.                                   {$ENDIF}
  2269.                                   {$IFDEF RussianVersion}
  2270.                                       asMsgHelp30A_Russ,
  2271.                                   {$ELSE}
  2272.                                       asBlankStr,
  2273.                                   {$ENDIF}
  2274.                                   {$IFDEF GermanyVersion}
  2275.                                       asMsgHelp30A_Germ);
  2276.                                   {$ELSE}
  2277.                                       asBlankStr);
  2278.                                   {$ENDIF}
  2279.  
  2280.     gszMsgHelp31A                 :   ARRAY [aMinLangNum..aMaxLangNum]  OF
  2281.                                         System.PChar =
  2282.                                   {$IFDEF EnglishVersion}
  2283.                                      (asMsgHelp31A_Engl,
  2284.                                   {$ELSE}
  2285.                                      (asBlankStr,
  2286.                                   {$ENDIF}
  2287.                                   {$IFDEF RussianVersion}
  2288.                                       asMsgHelp31A_Russ,
  2289.                                   {$ELSE}
  2290.                                       asBlankStr,
  2291.                                   {$ENDIF}
  2292.                                   {$IFDEF GermanyVersion}
  2293.                                       asMsgHelp31A_Germ);
  2294.                                   {$ELSE}
  2295.                                       asBlankStr);
  2296.                                   {$ENDIF}
  2297.  
  2298.     gszMsgHelp32A                 :   ARRAY [aMinLangNum..aMaxLangNum]  OF
  2299.                                         System.PChar =
  2300.                                   {$IFDEF EnglishVersion}
  2301.                                      (asMsgHelp32A_Engl,
  2302.                                   {$ELSE}
  2303.                                      (asBlankStr,
  2304.                                   {$ENDIF}
  2305.                                   {$IFDEF RussianVersion}
  2306.                                       asMsgHelp32A_Russ,
  2307.                                   {$ELSE}
  2308.                                       asBlankStr,
  2309.                                   {$ENDIF}
  2310.                                   {$IFDEF GermanyVersion}
  2311.                                       asMsgHelp32A_Germ);
  2312.                                   {$ELSE}
  2313.                                       asBlankStr);
  2314.                                   {$ENDIF}
  2315.  
  2316.     gszMsgHelp33A                 :   ARRAY [aMinLangNum..aMaxLangNum]  OF
  2317.                                         System.PChar =
  2318.                                   {$IFDEF EnglishVersion}
  2319.                                      (asMsgHelp33A_Engl,
  2320.                                   {$ELSE}
  2321.                                      (asBlankStr,
  2322.                                   {$ENDIF}
  2323.                                   {$IFDEF RussianVersion}
  2324.                                       asMsgHelp33A_Russ,
  2325.                                   {$ELSE}
  2326.                                       asBlankStr,
  2327.                                   {$ENDIF}
  2328.                                   {$IFDEF GermanyVersion}
  2329.                                       asMsgHelp33A_Germ);
  2330.                                   {$ELSE}
  2331.                                       asBlankStr);
  2332.                                   {$ENDIF}
  2333.  
  2334.     gszMsgHelp33B                 :   ARRAY [aMinLangNum..aMaxLangNum]  OF
  2335.                                         System.PChar =
  2336.                                   {$IFDEF EnglishVersion}
  2337.                                      (asMsgHelp33B_Engl,
  2338.                                   {$ELSE}
  2339.                                      (asBlankStr,
  2340.                                   {$ENDIF}
  2341.                                   {$IFDEF RussianVersion}
  2342.                                       asMsgHelp33B_Russ,
  2343.                                   {$ELSE}
  2344.                                       asBlankStr,
  2345.                                   {$ENDIF}
  2346.                                   {$IFDEF GermanyVersion}
  2347.                                       asMsgHelp33B_Germ);
  2348.                                   {$ELSE}
  2349.                                       asBlankStr);
  2350.                                   {$ENDIF}
  2351.  
  2352.     gszMsgHelp34A                 :   ARRAY [aMinLangNum..aMaxLangNum]  OF
  2353.                                         System.PChar =
  2354.                                   {$IFDEF EnglishVersion}
  2355.                                      (asMsgHelp34A_Engl,
  2356.                                   {$ELSE}
  2357.                                      (asBlankStr,
  2358.                                   {$ENDIF}
  2359.                                   {$IFDEF RussianVersion}
  2360.                                       asMsgHelp34A_Russ,
  2361.                                   {$ELSE}
  2362.                                       asBlankStr,
  2363.                                   {$ENDIF}
  2364.                                   {$IFDEF GermanyVersion}
  2365.                                       asMsgHelp34A_Germ);
  2366.                                   {$ELSE}
  2367.                                       asBlankStr);
  2368.                                   {$ENDIF}
  2369.